inst/shiny/v1.1/enriched_pathways/UI.R

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

##----------------------------------------------------------------------------##
## Tab: Enriched pathways
##----------------------------------------------------------------------------##

tab_enriched_pathways <- tabItem(
  tabName = "enrichedPathways",
  cerebroBox(
    title = tagList(
      boxTitle("Enriched pathways by sample"),
      cerebroInfoButton("enriched_pathways_by_sample_info")
    ),
    tagList(
      uiOutput("enriched_pathways_by_sample_select_source_UI"),
      uiOutput("enriched_pathways_by_sample_UI")
    )
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Enriched pathways by cluster"),
      cerebroInfoButton("enriched_pathways_by_cluster_info")
    ),
    tagList(
      uiOutput("enriched_pathways_by_cluster_select_source_UI"),
      uiOutput("enriched_pathways_by_cluster_UI")
    )
  )
)