comment s3connection

9d06c726 · Josep Manel Andres Moscardo · 3efee2e5 · 9d06c726
Commit 9d06c726 authored Jul 13, 2020 by Josep Manel Andres Moscardo
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

app/app.R app/app.R +3 -3

No files found.
--- a/app/app.R
+++ b/app/app.R
@@ -37,9 +37,9 @@ server <- function(input, output, session) {
  query <- parseQueryString(isolate(session$clientData$url_search))
  #query <- c("dataset" = "Tcells.rda")
    
-    s3con <- s3connection(paste0("seuratapp/",query["dataset"]),bucket = "lsteinme-shiny",region="")
-    load(s3con)
-    close(s3con)
+#    s3con <- s3connection(paste0("seuratapp/",query["dataset"]),bucket = "lsteinme-shiny",region="")
+#    load(s3con)
+#    close(s3con)
    updateSelectizeInput(session, "tsne.gene",choices = rownames(scaled))
    updateSelectizeInput(session, "tsne.type",choices = c("Clusters","Gene",colnames(metadata)))