diff --git a/app/global.R b/app/global.R index ce1e8a0cd2c53dd3e3d276711a4233a5f014ba5b..39b5d2021be4321917fd9c82cb1819838dafcbcf 100644 --- a/app/global.R +++ b/app/global.R @@ -27,11 +27,16 @@ require(RColorBrewer) require(dplyr) require(plotly) require(shinycustomloader) +require(aws.s3) +#require(minio.s3) + +s3load("LUCA_small.rds", bucket = "triana-shiny/SpaceM",base_url="s3.embl.de",key="triana-shiny",secret= "ammdD0s8b61RHUnTOtzC8u8uc2GfOKAI",use_https=F,region = "", check_region = F, verbose = T) +s3load("Manuscript_small.rds", bucket = "triana-shiny/SpaceM",base_url="s3.embl.de",key="triana-shiny",secret= "ammdD0s8b61RHUnTOtzC8u8uc2GfOKAI",use_https=F,region = "", check_region = F, verbose = T) +s3load("Simon_small.rds", bucket = "triana-shiny/SpaceM",base_url="s3.embl.de",key="triana-shiny",secret= "ammdD0s8b61RHUnTOtzC8u8uc2GfOKAI",use_https=F,region = "", check_region = F, verbose = T) + #saveRDS(Luca_small,"Data/LUCA_small.rds") -Luca_small<-readRDS("Data/LUCA_small.rds") -Simon_small<-readRDS("Data/Simon_small.rds") -Manuscript_small<-readRDS("Data/Manuscript_small.rds") + #Simon_small<-NormalizeData(Simon_small) #Simon_small$Condition<-ifelse(Simon_small$ds %in% c("M0_2_low","M0_1_low"),"M0", # ifelse(Simon_small$ds %in% c("M1_2_low","M1_1_low"),"M1","M2"))