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

##--------------------------------------------------------------------------##
## Tab: Clusters.
##--------------------------------------------------------------------------##

tab_clusters <- tabItem(
  tabName = "clusters",
  cerebroBox(
    title = tagList(
      boxTitle("Cluster tree"),
      cerebroInfoButton("clusters_tree_info")
    ),
    uiOutput("clusters_tree_UI")
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Clusters by samples"),
      cerebroInfoButton("clusters_by_sample_info")
    ),
    uiOutput("clusters_by_sample_UI")
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Number of transcripts"),
      cerebroInfoButton("clusters_nUMI_info")
    ),
    uiOutput("clusters_nUMI_UI")
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Number of expressed genes"),
      cerebroInfoButton("clusters_nGene_info")
    ),
    uiOutput("clusters_nGene_UI")
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Mitochondrial gene expression"),
      cerebroInfoButton("clusters_percent_mt_info")
    ),
    uiOutput("clusters_percent_mt_UI")
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Ribosomal gene expression"),
      cerebroInfoButton("clusters_percent_ribo_info")
    ),
    uiOutput("clusters_percent_ribo_UI")
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Cell cycle analysis by Seurat"),
      cerebroInfoButton("clusters_by_cell_cycle_seurat_info")
    ),
    uiOutput("clusters_by_cell_cycle_seurat_UI")
  ),
  cerebroBox(
    title = tagList(
      boxTitle("Cell cycle analysis by Cyclone"),
      cerebroInfoButton("clusters_by_cell_cycle_cyclone_info")
    ),
    uiOutput("clusters_by_cell_cycle_cyclone_UI")
  )
)
romanhaa/cerebroApp documentation built on Nov. 25, 2021, 5:29 p.m.