Commit 43782cdc authored by Lena Hersemann's avatar Lena Hersemann

requires now either cell_info.txt or scater_quality_metrics.txt to run the app

parent 6f73613d
......@@ -27,9 +27,11 @@ dataPath= args[1]
# load all required data
all_files <- list.files(dataPath)
files_req <- c("dm.rds", "pca.rds", "cell_infos.txt")
files_req <- c("dm.rds", "pca.rds")
info_req <- c("scater_quality_metrics.txt", "cell_infos.txt")
if (any(!files_req %in% all_files)) { stop("ATTENTION: please make sure dm.rds, pca.rds and cell_infos.txt exist in your working directory") }
if (all(!info_req %in% all_files)) { stop("ATTENTION: please make sure that either cell_infos.txt or scater_quality_metrices.txt exist in your working directory") }
dm <- readRDS(file.path(dataPath, "dm.rds"))
pca <- readRDS(file.path(dataPath, "pca.rds"))
......
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