comment s3connection

parent 3efee2e5
Pipeline #16466 passed with stage
in 12 minutes and 26 seconds
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment