From 4807128193a85c4ff61d59b954f22ee327bae473 Mon Sep 17 00:00:00 2001
From: Ryan Corces <ryancorces@gmail.com>
Date: Tue, 28 Mar 2023 11:39:42 -0700
Subject: [PATCH] add status reporting for feature plots

---
 R/ShinyArchRExports.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/ShinyArchRExports.R b/R/ShinyArchRExports.R
index 1c73fe71..420e8b07 100644
--- 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)){