bugfix for vizapp

vizapp/shinyapp/global.R

@@ -8,7 +8,7 @@ source("./ODA_functions/workBook.R")
 source("./ODA_functions/statTests.R")
 source("./ODA_functions/my_workbook.R")
 library(shiny)
-astrocyte_flag=F
+astrocyte_flag=T
 if (astrocyte_flag == T) {rootdir<-paste0(Sys.getenv('outputDir'),"/")
 } else if (astrocyte_flag == F) {rootdir<-"./data/"}
 files <- list.files(rootdir,pattern="\\.rdata$",ignore.case=TRUE)