reset button added to map, closes stevenpbachman#6

jumpingrivers · Feb 3, 2023 · 73f4993 · 73f4993
1 parent 3cf4d3b
commit 73f4993
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/R/app.R b/R/app.R
@@ -98,8 +98,12 @@ geocatApp <- function(...) {
 
       fluidRow(
         column(
-          12, align="center", 
+          8, align="center", 
           downloadButton('download', "Download SIS point file")
+        ),
+        column(
+          4, align = "center", 
+          actionButton("reset", "Reset")
         )
       )
     ),
@@ -119,6 +123,11 @@ server <- function(input, output, session) {
     analysis_data=tibble::tibble()
   )
 
+  observeEvent(input$reset,{
+      session$reload()
+  }
+  )
+
   # prepare the points
   csvpointsInput <- shiny::eventReactive(input$csv_in, {
     ext <- tools::file_ext(input$csv_in$datapath)