R/cohort_selection_ui.R

In CRI-iAtlas/iatlas.modules2: iAatlas Modules2

#' Cohort Selection UI
#'
#' @param id A shiny ID
#'
#' @export
cohort_selection_ui <- function(id) {

  ns <- shiny::NS(id)

  shiny::tagList(

    iatlas.modules::titleBox("iAtlas Explorer - Cohort Selection"),
    iatlas.modules::textBox(
      width = 12,
      shiny::includeMarkdown(get_markdown_path("cohort_selection1"))
    ),

    iatlas.modules::sectionBox(
      title = "Cohort Selection",
      shiny::conditionalPanel(
        condition = "output.display_cohort_mode_choice",
        shiny::fluidRow(
          iatlas.modules::messageBox(
            width = 12,
            shiny::includeMarkdown(get_markdown_path("cohort_selection2")),
          ),
          iatlas.modules::optionsBox(
            width = 12,
            shiny::column(
              width = 12,
              shiny::selectInput(
                inputId = ns("cohort_mode_choice"),
                label   = "Select Cohort Selection Mode",
                choices = c("Cohort Selection", "Cohort Upload")
              )
            )
          )
        ),
        ns = ns
      ),
      shiny::conditionalPanel(
        condition = "input.cohort_mode_choice == 'Cohort Selection'",
        cohort_manual_selection_ui(ns("cohort_manual_selection")),
        ns = ns
      ),
      shiny::conditionalPanel(
        condition = "input.cohort_mode_choice == 'Cohort Upload'",
        cohort_upload_selection_ui(ns("cohort_upload_selection")),
        ns = ns
      )
    ),

    iatlas.modules::sectionBox(
      title = "Group Key",
      data_table_ui(
        ns("sg_table"),
        message_html = shiny::p(paste0(
          "This table shows counts, attributes, and annotations of ",
          "your choice of sample groups."
        ))
      )
    )

  )
}