inst/shiny/v1.3/gene_expression/server.R

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

##----------------------------------------------------------------------------##
## Tab: Gene (set) expression
##----------------------------------------------------------------------------##
files_to_load <- list.files(
  paste0(Cerebro.options[["cerebro_root"]], "/shiny/v1.3/gene_expression"),
  pattern = "func_|obj_|UI_|out_|event_",
  full.names = TRUE
)

for ( i in files_to_load ) {
  source(i, local = TRUE)
}