inst/shiny/server.R

# library(QRAP)

#   ____________________________________________________________________________
#   Server                                                                  ####

shinyServer(function(session, input, output) {

#   waiter_hide() # hide the waiter
# #
# #   kegg_species <- reactive({
# #     readRDS("www/Species/kegg_species.rds")
# #   })
#
#   observe({ kegg_species() })

  source("modules/1-server-get-start.R", local = T)
  source("modules/2-server-condition.R", local = T)
  source("modules/3-server-pca.R", local = T)
  source("modules/4-server-hierarchical-cluster.R", local = T)
  source("modules/5-server-sample-distance.R", local = T)
  source("modules/6-server-sample-correlation.R", local = T)
  source("modules/7-server-differential-analysis.R", local = T)
  source("modules/8-server-degs-patterns.R", local = T)
  source("modules/9-server-expression-visualization.R", local = T)
  source("modules/10-server-wgcna-prepare-data.R", local = T)
  source("modules/11-server-wgcna-detect-module.R", local = T)
  source("modules/CopyOf11-server-wgcna-detect-module.R", local = T)
  source("modules/12-server-wgcna-module-trait.R", local = T)
  source("modules/12.1-server-wgcna-scatter.R", local = T)
  source("modules/12.2-server-wgcna-expression.R", local = T)
  source("modules/13-server-gProfiler.R", local = T)
  source("modules/14-server-cluster_ORA.R", local = T)
  source("modules/15-server-cluster_GSEA.R", local = T)
  source("modules/16-server-kegg-pathview.R", local = T)
  source("modules/17-server-ppi-network.R", local = T)
  source("modules/18-server-genie3-network.R", local = T)
  source("modules/19-server-summarize-gene.R", local = T)
  source("modules/20-server-summarize-function.R", local = T)
##  ............................................................................
##  Neighborhood browser                                                    ####

##  ............................................................................
##  Map chart                                                               ####


})
goushixue/QRseq documentation built on July 9, 2023, 9:28 a.m.