scatterPlot: restrict labels to be 100 or less

loosolab · Dec 21, 2017 · d3952a3 · d3952a3
1 parent b6243ec
commit d3952a3
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/R/scatterPlot.R b/R/scatterPlot.R
@@ -266,7 +266,16 @@ scatterPlot <- function(input, output, session, data, types, features = NULL, ma
 
       result$highlight.color <- markerReac()$color
       if(markerReac()$highlight != "Disabled" & nrow(features.r()) > 0){
-        result$highlight.labels <- markerReac()$label
+        # restrict label to 100 or less
+        if(length(markerReac()$label) <= 100) {
+          result$highlight.labels <- markerReac()$label
+        } else {
+          shiny::showNotification(
+            paste("Warning! Label restricted to 100 or less labels. Currently selected:", length(markerReac()$label)),
+            duration = 10,
+            type = "warning"
+          )
+        }
       }
 
       if(markerReac()$highlight == "Highlight" & nrow(features.r()) > 0){