chore: add test dependencies to suggests

DESCRIPTION

@@ -59,6 +59,8 @@ Suggests:
     teal.data (>= 0.5.0),
     tern (>= 0.7.10),
     testthat (>= 3.0.4),
+    rvest (>= 1.0.0),
+    shinytest2,
     utils
 VignetteBuilder:
     knitr,
@@ -72,7 +74,7 @@ Config/Needs/verdepcheck: insightsengineering/goshawk, rstudio/shiny,
     insightsengineering/teal.widgets, yihui/knitr,
     insightsengineering/nestcolor, rstudio/rmarkdown, tidyverse/stringr,
     insightsengineering/teal.data, insightsengineering/tern,
-    r-lib/testthat
+    r-lib/testthat, rstudio/shinytest2, tidyverse/rvest
 Config/Needs/website: insightsengineering/nesttemplate
 Encoding: UTF-8
 Language: en-US

tests/testthat/helper-toggle-slider-utils.R

@@ -67,10 +67,10 @@ set_slider_values <- function(app, values) {
   )
 }
 
-#' values should be a numeric vector of length 2
+#' value should be a numeric vector of length 1
 #' Note that it will automatically toggle slider to be visible before setting it
-set_numeric_input_values <- function(app, values) {
-  checkmate::assert_numeric(values, len = 2)
+set_numeric_input_low <- function(app, values) {
+  checkmate::assert_numeric(values, len = 1)
 
   if (is_slider_visible(app)) {
     click_toggle_button(app)
@@ -80,9 +80,19 @@ set_numeric_input_values <- function(app, values) {
     values[1],
     wait_ = FALSE
   )
+}
+
+#' value should be a numeric vector of length 1
+#' Note that it will automatically toggle slider to be visible before setting it
+set_numeric_input_high <- function(app, values) {
+  checkmate::assert_numeric(values, len = 1)
+
+  if (is_slider_visible(app)) {
+    click_toggle_button(app)
+  }
   app$set_active_module_input(
     "yrange_scale-value_high",
-    values[2],
+    values[1],
     wait_ = FALSE
   )
 }

tests/testthat/test-shinytest2-tm_g_gh_boxplot.R

@@ -39,7 +39,8 @@ testthat::test_that(
   {
     initial_range <- list(min = 0, max = 55)
     new_value <- c(10, 40)
-    set_numeric_input_values(app_driver, new_value)
+    set_numeric_input_low(app_driver, new_value[1])
+    set_numeric_input_high(app_driver, new_value[2])
     check_widgets_with_value(
       app_driver,
       list(
@@ -56,7 +57,8 @@ testthat::test_that(
   outside the sliderInput range, sets proper sliderInput values and range",
   {
     new_range <- c(-5, 60)
-    set_numeric_input_values(app_driver, new_range)
+    set_numeric_input_low(app_driver, new_range[1])
+    set_numeric_input_high(app_driver, new_range[2])
     check_widgets_with_value(
       app_driver,
       list(
@@ -74,7 +76,8 @@ testthat::test_that(
   {
     initial_range <- list(min = 0, max = 55)
     new_value <- c(11, 30)
-    set_numeric_input_values(app_driver, new_value)
+    set_numeric_input_low(app_driver, new_value[1])
+    set_numeric_input_high(app_driver, new_value[2])
     check_widgets_with_value(
       app_driver,
       list(