inst/shiny/v1.3/enriched_pathways/select_content.R

In romanhaa/cerebroApp: Interactive visualization of scRNA-seq data with Cerebro

##----------------------------------------------------------------------------##
## Tab: Enriched pathways
##
## Select method and table (group).
##----------------------------------------------------------------------------##

##----------------------------------------------------------------------------##
## UI element to set layout for selection of method and group, which are split
## because the group depends on which method is selected.
##----------------------------------------------------------------------------##
output[["enriched_pathways_select_method_and_table_UI"]] <- renderUI({
  if (
    !is.null(getMethodsForEnrichedPathways()) &&
    length(getMethodsForEnrichedPathways()) > 0
  ) {
    tagList(
      fluidRow(
        column(
          6,
          uiOutput("enriched_pathways_selected_method_UI")
        ),
        column(
          6,
          uiOutput("enriched_pathways_selected_table_UI")
        )
      )
    )
  }
})

##----------------------------------------------------------------------------##
## UI element to select from which method the results should be shown.
##----------------------------------------------------------------------------##
output[["enriched_pathways_selected_method_UI"]] <- renderUI({
  tagList(
    div(
      HTML('<h3 style="text-align: center; margin-top: 0"><strong>Choose a method:</strong></h2>')
    ),
    fluidRow(
      column(2),
      column(8,
        selectInput(
          "enriched_pathways_selected_method",
          label = NULL,
          choices = getMethodsForEnrichedPathways(),
          width = "100%"
        )
      ),
      column(2)
    )
  )
})

##----------------------------------------------------------------------------##
## UI element to select which group should be shown.
##----------------------------------------------------------------------------##
output[["enriched_pathways_selected_table_UI"]] <- renderUI({
  req(input[["enriched_pathways_selected_method"]])
  tagList(
    div(
      HTML('<h3 style="text-align: center; margin-top: 0"><strong>Choose a table:</strong></h2>')
    ),
    fluidRow(
      column(2),
      column(8,
        selectInput(
          "enriched_pathways_selected_table",
          label = NULL,
          choices = getGroupsWithEnrichedPathways(input[["enriched_pathways_selected_method"]]),
          width = "100%"
        )
      ),
      column(2)
    )
  )
})

##----------------------------------------------------------------------------##
## Alternative text message if data is missing.
##----------------------------------------------------------------------------##
output[["enriched_pathways_message_no_method_found"]] <- renderText({
  "No data available."
})