fix barchart

Author: m7pr

tests/testthat/test-shinytest2-tm_g_barchart_simple.R

@@ -195,7 +195,7 @@ testthat::test_that(
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_g_barchart_simple()
     plot_before <- app_driver$get_active_module_plot_output("myplot")
-    app_driver$set_active_module_input(ns_des_input("x", "ADSL", "select"), "RACE")
+    app_driver$set_input(app_driver$namespaces(TRUE)$module(ns_des_input("x", "ADSL", "select")), "RACE")
     testthat::expect_false(identical(plot_before, app_driver$get_active_module_plot_output("myplot")))
     app_driver$expect_no_validation_error()
     app_driver$stop()
@@ -205,7 +205,7 @@ testthat::test_that(
 testthat::test_that("e2e - tm_g_barchart_simple: Deselection of 'x' throws validation error.", {
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_g_barchart_simple()
-  app_driver$set_active_module_input(ns_des_input("x", "ADSL", "select"), character(0L))
+  app_driver$set_input(app_driver$namespaces(TRUE)$module(ns_des_input("x", "ADSL", "select")), character(0L))
   app_driver$expect_validation_error()
   testthat::expect_match(
     app_driver$get_text(app_driver$namespaces(TRUE)$module(
@@ -231,10 +231,11 @@ test_dataset_selection <- function(input_id, new_dataset, new_value) {
       skip_if_too_deep(5)
       app_driver <- app_driver_tm_g_barchart_simple()
       plot_before <- app_driver$get_active_module_plot_output("myplot")
-      app_driver$set_active_module_input(sprintf("%s-dataset", input_id), new_dataset)
+      app_driver$set_input(app_driver$namespaces(TRUE)$module(sprintf("%s-dataset", input_id)), new_dataset)
       testthat::expect_false(identical(plot_before, app_driver$get_active_module_plot_output("myplot")))
       testthat::expect_null(app_driver$get_active_module_input(ns_des_input(input_id, new_dataset, "select")))
-      app_driver$set_active_module_input(ns_des_input(input_id, new_dataset, "select"), new_value)
+      app_driver$set_input(app_driver$namespaces(TRUE)$module(ns_des_input(input_id, new_dataset, "select")), new_value)
+      app_driver$wait_for_idle()
       testthat::expect_identical(
         app_driver$get_active_module_input(ns_des_input(input_id, new_dataset, "select")),
         new_value
@@ -254,7 +255,7 @@ test_dataset_selection <- function(input_id, new_dataset, new_value) {
       skip_if_too_deep(5)
       app_driver <- app_driver_tm_g_barchart_simple()
       plot_before <- app_driver$get_active_module_plot_output("myplot")
-      app_driver$set_active_module_input(sprintf("%s-dataset", input_id), character(0L))
+      app_driver$set_input(app_driver$namespaces(TRUE)$module(sprintf("%s-dataset", input_id)), character(0L))
       testthat::expect_null(app_driver$get_active_module_input(input_id))
       testthat::expect_false(identical(plot_before, app_driver$get_active_module_plot_output("myplot")))
       app_driver$expect_no_validation_error()
@@ -278,9 +279,9 @@ for (input_id in c("fill", "x_facet", "y_facet")) {
     {
       skip_if_too_deep(5)
       app_driver <- app_driver_tm_g_barchart_simple()
-      app_driver$set_active_module_input(ns_des_input("x", "ADSL", "select"), "ACTARM", wait_ = FALSE)
-      app_driver$set_active_module_input(sprintf("%s-dataset", input_id), "ADSL", wait_ = FALSE)
-      app_driver$set_active_module_input(ns_des_input(input_id, "ADSL", "select"), "ACTARM")
+      app_driver$set_input(app_driver$namespaces(TRUE)$module(ns_des_input("x", "ADSL", "select")), "ACTARM", wait_ = FALSE)
+      app_driver$set_input(app_driver$namespaces(TRUE)$module(sprintf("%s-dataset", input_id)), "ADSL", wait_ = FALSE)
+      app_driver$set_input(app_driver$namespaces(TRUE)$module(ns_des_input(input_id, "ADSL", "select")), "ACTARM")
 
       app_driver$expect_validation_error()
 
@@ -322,6 +323,7 @@ test_that_plot_settings <- function(input_id, new_value, setup_fun = function(ap
       setup_fun(app_driver)
       plot_before <- app_driver$get_active_module_plot_output("myplot")
       app_driver$set_active_module_input(input_id, new_value)
+      app_driver$wait_for_idle()
       testthat::expect_false(identical(plot_before, app_driver$get_active_module_plot_output("myplot")))
       app_driver$expect_no_validation_error()
       app_driver$stop()
@@ -343,5 +345,5 @@ test_that_plot_settings("show_n", TRUE)
 test_that_plot_settings(
   "rotate_bar_labels",
   FALSE,
-  setup_fun = function(app_driver) app_driver$set_active_module_input("label_bars", TRUE)
+  setup_fun = function(app_driver) app_driver$set_input(app_driver$namespaces(TRUE)$module("label_bars"), TRUE)
 )