Actually emit a warning notification if a cap is used.

iSEE · Nov 25, 2024 · 3bcacee · 3bcacee
1 parent 2826393
commit 3bcacee
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/AggregatedDotPlot.R b/R/AggregatedDotPlot.R
@@ -464,6 +464,11 @@ setMethod(".generateOutput", "AggregatedDotPlot", function(x, se, all_memory, al
     .textEval(computation, plot_env)
     all_cmds$command <- computation
 
+    # Emitting a notification if we had to cap the number of rows.
+    if (length(plot_env$.chosen.rows) > nrow(plot_env$.averages)) {
+        showNotification(sprintf("number of features capped to %s in %s", nrow(plot_env$.averages), .getEncodedName(x)), type="warning")
+    }
+
     # Row clustering.
     unclustered_cmds <- c(".rownames_ordered <- rev(rownames(.averages))")
     if (x[[.ADPClusterFeatures]] && nrow(plot_env$.averages) > 1L) {