inst/shiny/v1.1/gene_id_conversion/server.R

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

##----------------------------------------------------------------------------##
## Tab: Gene id/symbol conversion.
##----------------------------------------------------------------------------##

output[["gene_info"]] <- DT::renderDataTable({
  if ( input[["geneIdConversion_organism"]] == "mouse" ) {
    conversion_table <- read.table(
      system.file("extdata/mm10_gene_ID_name.tsv.gz", package = "cerebroApp"),
      sep = "\t", header = TRUE, stringsAsFactors = FALSE
    )
  } else if ( input[["geneIdConversion_organism"]] == "human" ) {
    conversion_table <- read.table(
      system.file("extdata/hg38_gene_ID_name.tsv.gz", package = "cerebroApp"),
      sep = "\t", header = TRUE, stringsAsFactors = FALSE
    )
  }
  DT::datatable(
    conversion_table,
    filter = "none",
    selection = "multiple",
    escape = FALSE,
    autoHideNavigation = TRUE,
    rownames = FALSE,
    options = list(
      scrollX = FALSE,
      dom = "Bfrtip",
      lengthMenu = c(15, 30, 50, 100),
      pageLength = 50
    )
  )
})

# info box
observeEvent(input[["geneIdConversion_info"]], {
  showModal(
    modalDialog(
      geneIdConversion_info[["text"]],
      title = geneIdConversion_info[["title"]],
      easyClose = TRUE,
      footer = NULL
    )
  )
})