inst/shiny/v1.3/gene_id_conversion/UI.R

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

##----------------------------------------------------------------------------##
## Tab: Gene ID/symbol conversion
##----------------------------------------------------------------------------##
tab_gene_id_conversion <- tabItem(
  tabName = "geneIdConversion",
  fluidRow(
    cerebroBox(
      title = tagList(
        boxTitle("Convert gene ID <-> gene symbol"),
        cerebroInfoButton("geneIdConversion_info")
      ),
      tagList(
        selectInput(
          "geneIdConversion_organism",
          "Organism:",
          choices = c("mouse", "human")
        ),
        DT::dataTableOutput("gene_info")
      )
    )
  )
)