pablo-rodr-bio2 authored on 18/05/2021 10:28:35
pablo-rodr-bio2 authored on 17/05/2021 17:29:04
| ... | ... |
@@ -1,3 +1,4 @@ |
| 1 |
+### LOADING LIBRARIES |
|
| 1 | 2 |
library(shiny) |
| 2 | 3 |
library(shinythemes) |
| 3 | 4 |
library(plotly) |
| ... | ... |
@@ -11,7 +12,17 @@ library(promises) |
| 11 | 12 |
library(shinyjs) |
| 12 | 13 |
library(shinybusy) |
| 13 | 14 |
library(shinydashboard) |
| 15 |
+ |
|
| 16 |
+### there seems to be a problem with the DT package colliding with plotly |
|
| 17 |
+### so first check if the package is loaded and if it is, unload it |
|
| 18 |
+if("DT" %in% (.packages())) {
|
|
| 19 |
+ detach("package:DT", unload=TRUE)
|
|
| 20 |
+} |
|
| 21 |
+ |
|
| 22 |
+### setting plan for futures |
|
| 14 | 23 |
plan(multisession) |
| 24 |
+ |
|
| 25 |
+### sourcing all modules |
|
| 15 | 26 |
source("argumentsDataModule.R")
|
| 16 | 27 |
source("modalGSVAModule.R")
|
| 17 | 28 |
source("downloadModule.R")
|
| ... | ... |
@@ -23,6 +34,7 @@ source("geneSetsModule.R")
|
| 23 | 34 |
source("argumentsDataModule.R")
|
| 24 | 35 |
source("closeModule.R")
|
| 25 | 36 |
|
| 37 |
+### setting a global in "method" choices for gsva() |
|
| 26 | 38 |
methodChoices <- c( "GSVA" = "gsva", |
| 27 | 39 |
"ssGSEA" = "ssgsea", |
| 28 | 40 |
"zscore" = "zscore", |
pablo-rodr-bio2 authored on 05/05/2021 06:01:52
pablo-rodr-bio2 authored on 28/04/2021 07:59:37
| ... | ... |
@@ -20,4 +20,9 @@ source("plot3_Module.R")
|
| 20 | 20 |
source("matrixModule.R")
|
| 21 | 21 |
source("geneSetsModule.R")
|
| 22 | 22 |
source("argumentsDataModule.R")
|
| 23 |
-source("closeModule.R")
|
|
| 24 | 23 |
\ No newline at end of file |
| 24 |
+source("closeModule.R")
|
|
| 25 |
+ |
|
| 26 |
+methodChoices <- c( "GSVA" = "gsva", |
|
| 27 |
+ "ssGSEA" = "ssgsea", |
|
| 28 |
+ "zscore" = "zscore", |
|
| 29 |
+ "PLAGE" = "plage") |
|
| 25 | 30 |
\ No newline at end of file |
pablo-rodr-bio2 authored on 15/04/2021 14:12:31
pablo-rodr-bio2 authored on 13/04/2021 17:00:38
| ... | ... |
@@ -19,4 +19,5 @@ source("plot2_Module.R")
|
| 19 | 19 |
source("plot3_Module.R")
|
| 20 | 20 |
source("matrixModule.R")
|
| 21 | 21 |
source("geneSetsModule.R")
|
| 22 |
-source("argumentsDataModule.R")
|
|
| 23 | 22 |
\ No newline at end of file |
| 23 |
+source("argumentsDataModule.R")
|
|
| 24 |
+source("closeModule.R")
|
|
| 24 | 25 |
\ No newline at end of file |
pablo-rodr-bio2 authored on 12/04/2021 19:41:34
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,22 @@ |
| 1 |
+library(shiny) |
|
| 2 |
+library(shinythemes) |
|
| 3 |
+library(plotly) |
|
| 4 |
+library(GSVA) |
|
| 5 |
+library(GSEABase) |
|
| 6 |
+library(limma) |
|
| 7 |
+library(ggplot2) |
|
| 8 |
+library(data.table) |
|
| 9 |
+library(future) |
|
| 10 |
+library(promises) |
|
| 11 |
+library(shinyjs) |
|
| 12 |
+library(shinybusy) |
|
| 13 |
+plan(multisession, gc=TRUE) |
|
| 14 |
+source("argumentsDataModule.R")
|
|
| 15 |
+source("modalGSVAModule.R")
|
|
| 16 |
+source("downloadModule.R")
|
|
| 17 |
+source("plot1_Module.R")
|
|
| 18 |
+source("plot2_Module.R")
|
|
| 19 |
+source("plot3_Module.R")
|
|
| 20 |
+source("matrixModule.R")
|
|
| 21 |
+source("geneSetsModule.R")
|
|
| 22 |
+source("argumentsDataModule.R")
|
|
| 0 | 23 |
\ No newline at end of file |