R/driver_associations_ui.R

In CRI-iAtlas/iatlas-app: What the Package Does (One Line, Title Case)

driver_associations_ui <- function(id) {

  ns <- shiny::NS(id)

  shiny::tagList(
    iatlas.modules::titleBox(
      "CRI iAtlas Explorer — Association with Driver Mutations"
    ),
    iatlas.modules::textBox(
      width = 12,
      shiny::includeMarkdown(get_markdown_path("driver"))
    ),
    iatlas.modules::sectionBox(
      title = paste0(
        "Immune Response Association With Driver Mutations ",
        "-- univariate"
      ),
      module_ui(ns("univariate_driver"))
    )
    # iatlas.modules::sectionBox(
    #   title = paste0(
    #     "Immune Response Association With Driver Mutations ",
    #     "-- multivariate"
    #   ),
    #   module_ui(ns("multivariate_driver"))
    # )
  )
}