Try sleeping in shinytest test for relayout size stability

Author: cpsievert

inst/examples/shiny/event_data/tests/testthat/test-shinytest2.R

@@ -21,6 +21,7 @@ test_that("Plotly input values in Shiny", {
   app$set_inputs(`plotly_brushed-A` = "{\"x\":[23.95978500551268,25.98332414553473],\"y\":[3.0020072289156627,3.5073743975903615]}", allow_no_input_binding_ = TRUE)
   app$set_inputs(`plotly_hover-A` = "[{\"curveNumber\":0,\"pointNumber\":7,\"x\":24.4,\"y\":3.19,\"customdata\":\"Merc 240D\"}]", allow_no_input_binding_ = TRUE)
   app$set_inputs(`plotly_hover-A` = character(0), allow_no_input_binding_ = TRUE)
+  Sys.sleep(1)
   app$expect_values()
   app$set_inputs(`plotly_selected-A` = character(0), allow_no_input_binding_ = TRUE)
   app$set_inputs(`plotly_brushed-A` = character(0), allow_no_input_binding_ = TRUE)
@@ -30,5 +31,6 @@ test_that("Plotly input values in Shiny", {
   app$set_inputs(`plotly_brushing-A` = character(0), allow_no_input_binding_ = TRUE)
   app$set_inputs(`plotly_click-A` = character(0), allow_no_input_binding_ = TRUE)
   app$set_inputs(`plotly_deselect-A` = "\"plot\"", allow_no_input_binding_ = TRUE)
+  Sys.sleep(1)
   app$expect_values()
 })