added test to check whether the required cluster_comp_folder exists

sc_workflow/sc_apps/clustering_explorer

@@ -25,12 +25,15 @@ load_pack(Seurat)
 # Determine data directory from execution context  ---------------------------------------------------------------------
 
 dataPath= paste0(args[1], "cluster_comp_data")
-#dataPath = "."
+#dataPath = "./cluster_comp_data"
 
 
 #TODO: try Normalized Mutual Information and Rand Index as a measures for cluster comparison
 # LOAD data ------------------------------------------------------------------------------------------------------------
 
+#check presence of the required data folder
+if (!dir.exists(dataPath)) { stop("required cluster_comp_folder not found") }
+
 # check presence of all required data
 all_files <- list.files(dataPath, pattern = ".txt")
 files_req <- c("cluster_info", "cluster_marker_genes", "scaled_counts", "tsne_info")