Commit 2a4a7816 authored by Anne  BITON's avatar Anne BITON
Browse files

Update app.R

parent 90ff9dd7
library(iSEE)
library(iSEEu)
#library(Seurat)
......@@ -249,10 +248,6 @@ colData(sceforisee) <- colData(sceforisee)[,c("nCount_RNA", "nFeature_RNA", "s
library(HDF5Array)
sceforisee.h5 <- sceforisee
#to use less memory
sceforisee.h5@rowRanges <- GRanges()
#sceforisee <- readRDS('sceforisee.rds')
assay(sceforisee.h5, "counts", withDimnames=FALSE) <-
writeHDF5Array(assay(sceforisee.h5, "counts"), file="assay.h5", name="counts")
class(assay(sceforisee.h5, "counts", withDimnames=FALSE))
......@@ -277,12 +272,12 @@ assay(sceforisee.h5, "logcounts", withDimnames=FALSE)@seed@filepath <- "assay.h5
saveRDS(sceforisee.h5, file='sceforisee.h5.rds')
iSEE(readRDS('sceforisee.h5.rds'), c(initial,diff.panel), appTitle = "Yolk Sac EMPs")
#iSEE(readRDS('sceforisee.h5.rds'), c(initial), appTitle = "Yolk Sac EMPs")
#library(rsconnect)
#}
## unsuccesful attempt to deploy the app (memory issue)
# library(rsconnect)
# rsconnect::setAccountInfo(name='bitona', token='xxxx', secret='xxx')
# options(repos = BiocManager::repositories())
#rsconnect::deployApp("iSEE", appName = 'YS_EMPs_isee', appTitle = "Yolk Sac EMPs")
#}
# app <- iSEE(readRDS('sceforisee.h5.rds'), c(initial,diff.panel), appTitle = "Yolk Sac EMPs")
#profvis::profvis(shiny::runApp(app))
\ No newline at end of file
## app <- iSEE(readRDS('sceforisee.h5.rds'), c(initial,diff.panel), appTitle = "Yolk Sac EMPs")
## profvis::profvis(shiny::runApp(app))
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