-
Notifications
You must be signed in to change notification settings - Fork 14
/
server.R
executable file
·74 lines (45 loc) · 2.13 KB
/
server.R
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
# save as "server.R"
# shiny server
# Options -----------------------------------------------------------------
options(shiny.reactlog = FALSE)
options(shiny.sanitize.errors = FALSE)
# Load configuration ------------------------------------------------------
source(file = "config.R", local = TRUE)
# Load server functions ---------------------------------------------------
source(file = file.path(config$server, "functions_server.R"))
# Shiny session Start -----------------------------------------------------
server <- function(input, output, session) {
# Init session ----
source(file = file.path(config$server, "init_server.R"), local = TRUE)
# Load database -----------------------------------------------------------
source(file = file.path(config$server, "load_data.R"), local = TRUE)
### Input Modules
# Welcome ----
source(file = file.path(config$server, "welcome_server.R"), local = TRUE)
# tcga expr
source(file = file.path(config$server, "tcga_expr_server.R"), local = TRUE)
# tcga cnv ----
source(file = file.path(config$server, "tcga_cnv_server.R"), local = TRUE)
#tcga snv ----
source(file = file.path(config$server, "tcga_snv_server.R"), local = TRUE)
# tcga meth ----
source(file = file.path(config$server, "tcga_meth_server.R"), local = TRUE)
# tcga mirna ----
source(file = file.path(config$server, "tcga_mirna_server.R"), local = TRUE)
# tcga rppa ----
source(file = file.path(config$server, "tcga_rppa_server.R"), local = TRUE)
# drug ----
source(file = file.path(config$server, "drug_server.R"), local = TRUE)
#
# source(file = file.path(config$server, "GTEx_eqtl_server.R"), local = TRUE)
#
source(file = file.path(config$server, "GTEx_exp_server.R"), local = TRUE)
#
source(file = file.path(config$server, "GTEx_eqtl_server.R"), local = TRUE)
source(file = file.path(config$server, "contact_server.R"), local = TRUE)
# Help server
source(file = file.path(config$server, "tutorial_server.R"), local = TRUE)
# Loading screen ----------------------------------------------------------
loading_screen()
}
shinyServer(func = server)