From eca7bff31428d9a4030458211a96ee824339cf93 Mon Sep 17 00:00:00 2001
From: Sergio Heli Triana <sergio.triana@embl.de>
Date: Fri, 17 Jul 2020 17:58:57 +0200
Subject: [PATCH] Update global.R
---
app/global.R | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/app/global.R b/app/global.R
index ce1e8a0..39b5d20 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"))
--
GitLab