fix laboratory

Author: m7pr

tests/testthat/test-shinytest2-tm_t_pp_laboratory.R

@@ -48,6 +48,7 @@ app_driver_tm_t_pp_laboratory <- function() {
 testthat::test_that("e2e - tm_t_pp_laboratory: Module initializes in teal without errors and produces table output.", {
   skip_if_too_deep(5)
   app_driver <- app_driver_tm_t_pp_laboratory()
+  app_driver$wait_for_idle()
   app_driver$expect_no_shiny_error()
   app_driver$expect_no_validation_error()
   testthat::expect_true(
@@ -108,8 +109,10 @@ testthat::test_that(
   {
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_pp_laboratory()
+    app_driver$wait_for_idle()
     table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2)
     app_driver$set_active_module_input("patient_id", "AB12345-USA-1-id-261")
+    app_driver$wait_for_idle()
     testthat::expect_false(
       identical(
         table_before,
@@ -145,8 +148,10 @@ testthat::test_that(
   {
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_pp_laboratory()
+    app_driver$wait_for_idle()
     table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2)
     app_driver$set_active_module_input("paramcd-dataset_ADLB_singleextract-select", "STUDYID")
+    app_driver$wait_for_idle()
     testthat::expect_false(
       identical(
         table_before,
@@ -182,8 +187,10 @@ testthat::test_that(
   {
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_pp_laboratory()
+    app_driver$wait_for_idle()
     table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2)
     app_driver$set_active_module_input("param-dataset_ADLB_singleextract-select", "SEX")
+    app_driver$wait_for_idle()
     testthat::expect_false(
       identical(
         table_before,
@@ -222,8 +229,10 @@ testthat::test_that(
   {
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_pp_laboratory()
+    app_driver$wait_for_idle()
     table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2)
     app_driver$set_active_module_input("timepoints-dataset_ADLB_singleextract-select", "AGE")
+    app_driver$wait_for_idle()
     testthat::expect_false(
       identical(
         table_before,
@@ -261,8 +270,10 @@ testthat::test_that(
   {
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_pp_laboratory()
+    app_driver$wait_for_idle()
     table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2)
     app_driver$set_active_module_input("avalu_var-dataset_ADLB_singleextract-select", "SEX")
+    app_driver$wait_for_idle()
     testthat::expect_false(
       identical(
         table_before,
@@ -300,8 +311,10 @@ testthat::test_that(
   {
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_pp_laboratory()
+    app_driver$wait_for_idle()
     table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2)
     app_driver$set_active_module_input("aval_var-dataset_ADLB_singleextract-select", "AGE")
+    app_driver$wait_for_idle()
     testthat::expect_false(
       identical(
         table_before,
@@ -337,8 +350,10 @@ testthat::test_that(
   {
     skip_if_too_deep(5)
     app_driver <- app_driver_tm_t_pp_laboratory()
+    app_driver$wait_for_idle()
     table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2)
     app_driver$set_active_module_input("anrind-dataset_ADLB_singleextract-select", "AGEU")
+    app_driver$wait_for_idle()
     testthat::expect_false(
       identical(
         table_before,