From 4bb282d8105f1395fea81c52066861692319c063 Mon Sep 17 00:00:00 2001
From: Thomas Sostarics <tsostarics@gmail.com>
Date: Wed, 15 May 2024 16:48:25 -0500
Subject: [PATCH] Edit clear selection button to address #46

---
 R/editor_local.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/editor_local.R b/R/editor_local.R
index 5bd216d..0241ef3 100644
--- a/R/editor_local.R
+++ b/R/editor_local.R
@@ -473,6 +473,8 @@ 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()')
+
     })
 
     ########################################################
@@ -813,7 +815,7 @@ openEditor <- function(
       plotFlag$value # Needed to update whenever the data.table updates in place
       if (is.null(loadedFile$data))
         return(NULL)
-
+# browser()
 
       # These will update when the user changes the color manually with the
       # color pickers or if the theme is changed.
@@ -973,6 +975,7 @@ openEditor <- function(
       if (is.null(loadedFile$data))
         return(NULL)
 
+
       clickedPoint <- shiny::nearPoints(loadedFile$data[loadedFile$data[[input$filenameColumnInput]] %in% fileHandler$filenames[fileHandler$isPlotted],],
                                         input$plot_click,
                                         xvar = input$xValColumnInput,