Simplify click interaction. Tweak test to pass locally.

R/mod_main_view.R

@@ -348,19 +348,11 @@ mod_main_view_server <- function(module_id, initial_data, changed,
         )
       })
 
-      # tell if there was a click on the main plot
-      clicked <- shiny::reactiveVal(FALSE)
-
-      shiny::observeEvent(input$plot_click, {
-        clicked(TRUE)
-      })
-
-
-      # Get unique subject identifier either from click
+      # Get unique subject identifier from click
       subject_id <- shiny::reactive({
-        shiny::req(input$plot_click, clicked())
+        shiny::req(input$plot_click)
 
-        # Get y position of the click & find the matching subject identifier
+        # Get y position of the click and find the matching subject identifier
         position <- round(input$plot_click$y)
         subject <- input$plot_click$domain$discrete_limits$y[[position]]
         subject

tests/testthat/test-mod_clinical_timelines.R

@@ -102,6 +102,8 @@ test_that("local filters are resetted (only) after dataset switch" %>%
     "rel" = app$get_value(input = "mod-filter-drug_rel_ae")
   )
   app$set_inputs(selector = "dummyData2")
+  app$wait_for_idle()
+  app$wait_for_idle() # cope with slow update
   actual_after <- c(
     "sae" = app$get_value(input = "mod-filter-serious_ae"),
     "soc" = app$get_value(input = "mod-filter-soc"),