Fix #46, though the underlying issue of the brush debouncing behavior…

… still exists
tsostarics · May 15, 2024 · e234cc1 · e234cc1
1 parent 4bb282d
commit e234cc1
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/editor_local.R b/R/editor_local.R
@@ -89,7 +89,8 @@ openEditor <- function(
                                               value = FALSE,
                                               status = "info")),
       shiny::actionButton("clearSelectButton",
-                          "Clear Selection"),
+                          title = "Click to remove selection boxes that won't go away!",
+                          label = "Clear Selection"),
       # profvis::profvis_ui("profileUI"),
       undoTransformUI('octaveShift'),
       shiny::actionButton(
@@ -473,7 +474,11 @@ openEditor <- function(
     # Temporary button to clear the selection, see issue #46
     observeEvent(input$clearSelectButton, {
       session$resetBrush('plot_brush')
-      shinyjs::runjs('document.getElementById("pulsePlot_brush").remove()')
+      shinyjs::runjs('
+                     while (document.getElementById("pulsePlot_brush") != null) {
+                     document.getElementById("pulsePlot_brush").remove()
+                     }
+                     ')
 
     })