LncScape/app.R at main · Haider6060/LncScape · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
library(shiny)
library(shinydashboard)

# ==== Load Globals and Modules ====
source("global.R")

# Load UI Modules FIRST
source("pseudotime_ui.R")      # ✅ Load this BEFORE main_ui.R
source("lnc_pathway_ui.R")
source("gsva_pathway_ui.R")
source("LDS_ui.R")
source("ui_tld_module.R")
source("ui_upload_clustering.R")

# Load Main UI LAST (because it calls the modules)
source("main_ui.R")             # ✅ Load this AFTER all ui modules

# Load Server Modules
source("server_upload_clustering.R")
source("server_lnc_discovery.R")
source("pseudotime_server.R")
source("lnc_pathway_server.R")
source("gsva_pathway_server.R")
source("LDS_server.R")
source("server_tld_module.R")

# Reactive Containers
seurat_obj_reactive <- reactiveVal(NULL)
dataset_type <- reactiveVal(NULL)
cds_reactive <- reactiveVal(NULL)

# Server
server <- function(input, output, session) {
  upload_clustering_server(input, output, session, seurat_obj_reactive, dataset_type, cds_reactive)
  lnc_discovery_server(input, output, session, seurat_obj_reactive)
  pseudotime_server("pseudotime", cds_reactive)
  lnc_pathway_server("lncPathway")
  gsva_pathway_server("gsvaPathway")
  lds_server("ldsMethod", cds_reactive)
  tld_server("tldModule", seurat_obj_reactive)
}

# Launch App
shinyApp(ui = lncscape_ui, server = server)