inst/shiny/server.R

In nasqar/seuratv3wizard: User Interface to Seurat (Single Cell) library in R Shiny

#max upload 300mb
options(shiny.maxRequestSize = 400*1024^2)
options(future.globals.maxSize = 3000 * 1024 ^ 2)
library(future)
#plan("multiprocess", workers = 2)

server <- function(input, output, session) {

  source("server-initInputData.R",local = TRUE)

  source("server-qcfilter.R",local = TRUE)

  source("server-vln.R",local = TRUE)

  source("server-normSelect.R",local = TRUE)

  source("server-dispersion.R",local = TRUE)

  source("server-runPca.R",local = TRUE)

  source("server-pcaPlots.R",local = TRUE)

  source("server-jackStraw.R",local = TRUE)

  source("server-clusterCells.R",local = TRUE)

  source("server-nonLinReduction.R", local = TRUE)

  source("server-download.R",local = TRUE)

  source("server-findMarkers.R",local = TRUE)

  GotoTab <- function(name){
    
    shinyjs::show(selector = paste0("a[data-value=\"",name,"\"]"))
    
    shinyjs::runjs("window.scrollTo(0, 0)")
  }
}