add status reporting for feature plots

paupaiz · Mar 28, 2023 · 4807128 · 4807128
1 parent 6fb28fd
commit 4807128
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/ShinyArchRExports.R b/R/ShinyArchRExports.R
@@ -412,6 +412,9 @@ exportShinyArchR <- function(
         )
 
         embeds_points <- .safelapply(seq_along(featurePlots), function(x){
+          if((x %% 100) == 0) {
+            message("Processing feature #",x," of ",length(featurePlots)," for ", mat,".")
+          }
           featurePlotx <- featurePlots[x][[1]]
           if(!is.null(featurePlotx)){