fix jumping when clicking the same point twice

Author: iglauss

R/mod_edish.R

@@ -283,7 +283,11 @@ edish_server <- function(
     mod_return_value <- NULL
     if (!is.null(on_sbj_click)) {
       shiny::observe({
-        shiny::req(!is.null(plotly::event_data("plotly_click", source = session[["ns"]]("plot"))))
+        shiny::req(!is.null(plotly::event_data(
+          event = "plotly_click", 
+          source = session[["ns"]]("plot"), 
+          priority = "event" # needed when clicking the same point twice
+        )))
         on_sbj_click()
       })
       mod_return_value <- list(

tests/testthat/setup.R

@@ -82,7 +82,6 @@ test_communication_with_papo <- function(mod, data, trigger_input_id) {
       # Module outputs selection once
       testthat::expect_equal(exports[["ret_value"]], subject_ids[[i]])
       testthat::expect_equal(exports[["update_count"]], i)
-      # print(exports[["update_count"]])
     }
 
     app$stop()