iSEE launching from link

iSEE_launcher.R

############# The usual ################
library(scRNAseq)

# Example data ----
sce <- ReprocessedAllenData(assays="tophat_counts")
class(sce)

library(scater)
sce <- logNormCounts(sce, exprs_values="tophat_counts")

sce <- runPCA(sce, ncomponents=4)
sce <- runTSNE(sce)
rowData(sce)$ave_count <- rowMeans(assay(sce, "tophat_counts"))
rowData(sce)$n_cells <- rowSums(assay(sce, "tophat_counts") > 0)
saveRDS(sce, file="blah.rds")

############# Parameter spec ################
library(iSEE)
thing <- list(RedDimPlot(), RedDimPlot())
saveRDS(thing, file="param.rds")

############# Server-side initialization #############

shiny::enableBookmarking("url")
iSEE(landingPage=createLandingPage(
    seUI=function(id) textInput(id, "Path to SE file:"),
    seLoad=readRDS,
    initUI=function(id) textInput(id, "Path to initial file:"),
    initLoad=readRDS,
    requireButton=FALSE
))

############## USER-ACCESS ################

# NOTE: need to change your port:
# http://127.0.0.1:6776/?_inputs_&se=%22blah.rds%22&initial=%22param.rds%22