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

sc_workflow/sc_apps/metrics_explorer

@@ -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"))