From 3552d16a3f5772039e6b6faee5f8bb491664d1ac Mon Sep 17 00:00:00 2001 From: m7pr Date: Fri, 21 Nov 2025 11:08:13 +0100 Subject: [PATCH 01/37] bring back tests --- tests/testthat/test-shinytest2-tm_a_gee.R | 17 ------------ tests/testthat/test-shinytest2-tm_a_mmrm.R | 13 ---------- .../test-shinytest2-tm_g_barchart_simple.R | 8 ------ tests/testthat/test-shinytest2-tm_g_ci.R | 14 ---------- .../test-shinytest2-tm_g_forest_rsp.R | 18 ------------- .../test-shinytest2-tm_g_forest_tte.R | 7 ----- tests/testthat/test-shinytest2-tm_g_ipp.R | 14 ---------- tests/testthat/test-shinytest2-tm_g_km.R | 20 -------------- .../testthat/test-shinytest2-tm_g_lineplot.R | 10 ------- .../test-shinytest2-tm_g_pp_adverse_events.R | 16 ------------ ...test-shinytest2-tm_g_pp_patient_timeline.R | 26 ------------------- .../test-shinytest2-tm_g_pp_therapy.R | 5 ---- .../testthat/test-shinytest2-tm_g_pp_vitals.R | 11 -------- .../test-shinytest2-tm_t_abnormality.R | 9 ------- ...inytest2-tm_t_abnormality_by_worst_grade.R | 8 ------ tests/testthat/test-shinytest2-tm_t_ancova.R | 12 --------- .../test-shinytest2-tm_t_binary_outcome.R | 10 ------- tests/testthat/test-shinytest2-tm_t_coxreg.R | 10 ------- tests/testthat/test-shinytest2-tm_t_events.R | 8 ------ .../test-shinytest2-tm_t_events_by_grade.R | 10 ------- .../test-shinytest2-tm_t_events_patyear.R | 7 ----- .../test-shinytest2-tm_t_events_summary.R | 8 ------ .../testthat/test-shinytest2-tm_t_exposure.R | 10 ------- .../testthat/test-shinytest2-tm_t_logistic.R | 8 ------ .../test-shinytest2-tm_t_mult_events.R | 7 ----- .../test-shinytest2-tm_t_pp_basic_info.R | 6 ----- .../test-shinytest2-tm_t_pp_laboratory.R | 16 ------------ .../test-shinytest2-tm_t_pp_medical_history.R | 10 ------- ...test-shinytest2-tm_t_pp_prior_medication.R | 12 --------- .../test-shinytest2-tm_t_shift_by_arm.R | 8 ------ ...st-shinytest2-tm_t_shift_by_arm_by_worst.R | 12 --------- .../test-shinytest2-tm_t_shift_by_grade.R | 9 ------- tests/testthat/test-shinytest2-tm_t_smq.R | 8 ------ tests/testthat/test-shinytest2-tm_t_summary.R | 6 ----- .../test-shinytest2-tm_t_summary_by.R | 10 ------- tests/testthat/test-shinytest2-tm_t_tte.R | 8 ------ 36 files changed, 391 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_a_gee.R b/tests/testthat/test-shinytest2-tm_a_gee.R index aa30b9b75..09f39138c 100644 --- a/tests/testthat/test-shinytest2-tm_a_gee.R +++ b/tests/testthat/test-shinytest2-tm_a_gee.R @@ -44,7 +44,6 @@ app_driver_tm_a_gee <- function() { } testthat::test_that("e2e - tm_a_gee: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() @@ -58,7 +57,6 @@ testthat::test_that( "e2e - tm_a_gee: Starts with specified label, id_var, arm_var, visit_var, paramcd, cov_var, conf_level and conf_struct.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() @@ -113,7 +111,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_a_gee: Selection of id_var does not change the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -130,7 +127,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_a_gee: Deselection of id_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() app_driver$set_active_module_input(ns_des_input("id_var", "ADQS", "select"), character(0)) @@ -144,7 +140,6 @@ testthat::test_that("e2e - tm_a_gee: Deselection of id_var throws validation err }) testthat::test_that("e2e - tm_a_gee: Change in arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() @@ -161,7 +156,6 @@ testthat::test_that("e2e - tm_a_gee: Change in arm_var changes the table and doe }) testthat::test_that("e2e - tm_a_gee: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() app_driver$set_active_module_input(ns_des_input("arm_var", "ADSL", "select"), character(0)) @@ -177,7 +171,6 @@ testthat::test_that("e2e - tm_a_gee: Deselection of arm_var throws validation er testthat::test_that( "e2e - tm_a_gee: Selection of visit_var does not change the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -194,7 +187,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_a_gee: Deselection of visit_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() app_driver$set_active_module_input(ns_des_input("visit_var", "ADQS", "select"), character(0)) @@ -209,7 +201,6 @@ testthat::test_that("e2e - tm_a_gee: Deselection of visit_var throws validation }) testthat::test_that("e2e - tm_a_gee: Selection of paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -225,7 +216,6 @@ testthat::test_that("e2e - tm_a_gee: Selection of paramcd changes the table and }) testthat::test_that("e2e - tm_a_gee: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() app_driver$set_active_module_input(ns_des_input("paramcd", "ADQS", "filter1-vals"), character(0)) @@ -239,7 +229,6 @@ testthat::test_that("e2e - tm_a_gee: Deselection of paramcd throws validation er }) testthat::test_that("e2e - tm_a_gee: Selection of cov_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -255,7 +244,6 @@ testthat::test_that("e2e - tm_a_gee: Selection of cov_var changes the table and }) testthat::test_that("e2e - tm_a_gee: Selection of conf_level changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -271,7 +259,6 @@ testthat::test_that("e2e - tm_a_gee: Selection of conf_level changes the table a }) testthat::test_that("e2e - tm_a_gee: Selection of conf_level out of [0,1] range throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -286,7 +273,6 @@ testthat::test_that("e2e - tm_a_gee: Selection of conf_level out of [0,1] range }) testthat::test_that("e2e - tm_a_gee: Deselection of conf_level throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() app_driver$set_active_module_input("conf_level", character(0)) @@ -300,7 +286,6 @@ testthat::test_that("e2e - tm_a_gee: Deselection of conf_level throws validation }) testthat::test_that("e2e - tm_a_gee: Selection of cor_struct changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -316,7 +301,6 @@ testthat::test_that("e2e - tm_a_gee: Selection of cor_struct changes the table a }) testthat::test_that("e2e - tm_a_gee: Deselection of cor_struct does not throw validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() app_driver$set_active_module_input("cor_struct", character(0), wait_ = FALSE) # not waiting because of a warning @@ -325,7 +309,6 @@ testthat::test_that("e2e - tm_a_gee: Deselection of cor_struct does not throw va }) testthat::test_that("e2e - tm_a_gee: Selection of output_table changes the table and doesn't throw validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_a_mmrm.R b/tests/testthat/test-shinytest2-tm_a_mmrm.R index c058f1a18..3fce15ae3 100644 --- a/tests/testthat/test-shinytest2-tm_a_mmrm.R +++ b/tests/testthat/test-shinytest2-tm_a_mmrm.R @@ -81,7 +81,6 @@ output_functions <- c( testthat::test_that( "e2e - tm_a_mmrm: Module initializes in teal without errors and displays a message to click 'Fit Model'.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm(FALSE) @@ -101,7 +100,6 @@ testthat::test_that( visit_var, cov_var, arm_var, buckets, combine_comp_arms, id_var, cor_struct, weights_emmeans, conf_level, method, parallel and output_function.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm(FALSE) @@ -149,7 +147,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_a_mmrm: Click on fit model shows table for default selection.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() app_driver$expect_no_validation_error() @@ -166,7 +163,6 @@ testthat::test_that( "e2e - tm_a_mmrm: Function t_mmrm_lsmeans selection shows output settings; changing settings throws no validation errors and verify visibility of generated tables.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() @@ -188,7 +184,6 @@ testthat::test_that( "e2e - tm_a_mmrm: Function g_mmrm_lsmeans selection shows output settings; changing settings throws no validation errors and verify visibility of generated plots.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() @@ -231,7 +226,6 @@ testthat::test_that( "e2e - tm_a_mmrm: Function g_mmrm_diagnostic selection shows output settings; changing settings throws no validation errors and verify visibility of generated plots.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() @@ -263,7 +257,6 @@ for (func in output_functions) { func ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() # Set initial output function @@ -299,7 +292,6 @@ for (func in output_functions) { func ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() # Set initial output function @@ -335,7 +327,6 @@ for (func in output_functions) { func ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() # Set initial output function @@ -371,7 +362,6 @@ for (func in output_functions) { func ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() # Set initial output function @@ -407,7 +397,6 @@ for (func in output_functions) { func ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() # Set initial output function @@ -443,7 +432,6 @@ for (func in output_functions) { func ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() # Set initial output function @@ -511,7 +499,6 @@ for (func in output_functions) { func ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm() # Set initial output function diff --git a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R index 0d19eabce..74cc4c6fd 100644 --- a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R +++ b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R @@ -114,7 +114,6 @@ app_driver_tm_g_barchart_simple <- function() { # nolint: object_length. # Initialization -------------------------------------------------------------- testthat::test_that("e2e - tm_g_barchart_simple: Module initializes in teal without errors and produces output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() @@ -133,7 +132,6 @@ testthat::test_that( "e2e - tm_g_barchart_simple: Starts with specified label, id_var, arm_var, visit_var, paramcd, cov_var, conf_level and conf_struct.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() @@ -194,7 +192,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_barchart_simple: Selection of 'x' changes the element and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -206,7 +203,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_barchart_simple: Deselection of 'x' throws validation error.", { - testthat::skip("chromium") 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)) @@ -232,7 +228,6 @@ test_dataset_selection <- function(input_id, new_dataset, new_value) { input_id ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -256,7 +251,6 @@ test_dataset_selection <- function(input_id, new_dataset, new_value) { input_id ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -282,7 +276,6 @@ for (input_id in c("fill", "x_facet", "y_facet")) { input_id ), { - testthat::skip("chromium") 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) @@ -324,7 +317,6 @@ test_that_plot_settings <- function(input_id, new_value, setup_fun = function(ap input_id ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() setup_fun(app_driver) diff --git a/tests/testthat/test-shinytest2-tm_g_ci.R b/tests/testthat/test-shinytest2-tm_g_ci.R index c38759e5e..af3ad79ab 100644 --- a/tests/testthat/test-shinytest2-tm_g_ci.R +++ b/tests/testthat/test-shinytest2-tm_g_ci.R @@ -74,7 +74,6 @@ app_driver_tm_g_ci <- function() { } testthat::test_that("e2e - tm_g_ci: Module initializes in teal without errors and produces plot output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() app_driver$expect_no_shiny_error() @@ -86,7 +85,6 @@ testthat::test_that("e2e - tm_g_ci: Module initializes in teal without errors an testthat::test_that( "e2e - tm_g_ci: Module initializes with specified label, x_var, y_var, ADLB filters, color, conf_level and stat.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() testthat::expect_equal( @@ -142,7 +140,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_ci: Selecting x_var column changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -158,7 +155,6 @@ testthat::test_that("e2e - tm_g_ci: Selecting x_var column changes plot and does }) testthat::test_that("e2e - tm_g_ci: Deselecting x_var column throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() app_driver$set_active_module_input("x_var-dataset_ADSL_singleextract-select", character(0)) @@ -172,7 +168,6 @@ testthat::test_that("e2e - tm_g_ci: Deselecting x_var column throws validation e }) testthat::test_that("e2e - tm_g_ci: Selecting y_var column changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -188,7 +183,6 @@ testthat::test_that("e2e - tm_g_ci: Selecting y_var column changes plot and does }) testthat::test_that("e2e - tm_g_ci: Deselecting y_var column throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() app_driver$set_active_module_input("y_var-dataset_ADLB_singleextract-select", character(0)) @@ -204,7 +198,6 @@ testthat::test_that("e2e - tm_g_ci: Deselecting y_var column throws validation e testthat::test_that( "e2e - tm_g_ci: Selecting PARAMCD filter value changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -221,7 +214,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_ci: Deselecting PARAMCD filter value throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() app_driver$set_active_module_input("y_var-dataset_ADLB_singleextract-filter1-vals", character(0)) @@ -235,7 +227,6 @@ testthat::test_that("e2e - tm_g_ci: Deselecting PARAMCD filter value throws vali }) testthat::test_that("e2e - tm_g_ci: Selecting AVISIT filter value doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -246,7 +237,6 @@ testthat::test_that("e2e - tm_g_ci: Selecting AVISIT filter value doesn't throw }) testthat::test_that("e2e - tm_g_ci: Deselecting AVISIT filter value throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() app_driver$set_active_module_input("y_var-dataset_ADLB_singleextract-filter2-vals", character(0)) @@ -260,7 +250,6 @@ testthat::test_that("e2e - tm_g_ci: Deselecting AVISIT filter value throws valid }) testthat::test_that("e2e - tm_g_ci: Selecting color column changes plot output and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -271,7 +260,6 @@ testthat::test_that("e2e - tm_g_ci: Selecting color column changes plot output a }) testthat::test_that("e2e - tm_g_ci: Deselecting color column changes plot output and doesn't throw validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -282,7 +270,6 @@ testthat::test_that("e2e - tm_g_ci: Deselecting color column changes plot output }) testthat::test_that("e2e - tm_g_ci: Selecting confidence interval value changes plot and doesn't throw any errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -294,7 +281,6 @@ testthat::test_that("e2e - tm_g_ci: Selecting confidence interval value changes testthat::test_that("e2e - tm_g_ci: Selecting statistic to use changes a plot and doesn't throw any errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() plot_before <- app_driver$get_active_module_plot_output("myplot") diff --git a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R index d7ff0f3f5..a8698a3ea 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R @@ -87,7 +87,6 @@ app_driver_tm_g_forest_rsp <- function() { } testthat::test_that("e2e - tm_g_forest_rsp: Module initializes in teal without errors and produces plot output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() @@ -103,7 +102,6 @@ testthat::test_that( label, arm_var, paramcd, aval_var, responders, subgroup_var, strata_var, conf_level, fixed_symbol_size, rel_width_forest, font_size.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() @@ -160,7 +158,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_forest_rsp: Selecting arm_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -171,7 +168,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting arm_var changes plot and d }) testthat::test_that("e2e - tm_g_forest_rsp: Deselecting arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -184,7 +180,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting arm_var throws validatio }) testthat::test_that("e2e - tm_g_forest_rsp: Selecting paramcd changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -195,7 +190,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting paramcd changes plot and d }) testthat::test_that("e2e - tm_g_forest_rsp: Deselecting paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() app_driver$set_active_module_input("paramcd-dataset_ADRS_singleextract-filter1-vals", NULL) @@ -208,7 +202,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting paramcd throws validatio }) testthat::test_that("e2e - tm_g_forest_rsp: Selecting responders changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -219,7 +212,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting responders changes plot an }) testthat::test_that("e2e - tm_g_forest_rsp: Deselecting responders throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() app_driver$set_active_module_input("responders", NULL) @@ -232,7 +224,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting responders throws valida }) testthat::test_that("e2e - tm_g_forest_rsp: Selecting subgroup_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -243,7 +234,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting subgroup_var changes plot }) testthat::test_that("e2e - tm_g_forest_rsp: Selecting a non-factors column in subgroup_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() app_driver$set_active_module_input("subgroup_var-dataset_ADSL_singleextract-select", c("SEX", "AGE")) @@ -256,7 +246,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting a non-factors column in su }) testthat::test_that("e2e - tm_g_forest_rsp: Deselecting subgroup_var changes plot and doesn't throw validation errors.", { # nolint: line_length - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -267,7 +256,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting subgroup_var changes plo }) testthat::test_that("e2e - tm_g_forest_rsp: Selecting strata_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -278,7 +266,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting strata_var changes plot an }) testthat::test_that("e2e - tm_g_forest_rsp: Deselecting strata_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -289,7 +276,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting strata_var changes plot }) testthat::test_that("e2e - tm_g_forest_rsp: Selecting conf_level changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -300,7 +286,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting conf_level changes plot an }) testthat::test_that("e2e - tm_g_forest_rsp: Deselecting conf_level or selecting outside the range of 0-1 throws validation error.", { # nolint: line_length - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() app_driver$set_active_module_input("conf_level", NULL) @@ -319,7 +304,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting conf_level or selecting }) testthat::test_that("e2e - tm_g_forest_rsp: Unsetting fixed_symbol_size changes plot and doesn't throw validation errors.", { # nolint: line_length - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -330,7 +314,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Unsetting fixed_symbol_size changes }) testthat::test_that("e2e - tm_g_forest_rsp: Changing rel_width_forest changes plot and doesn't throw validation errors.", { # nolint: line_length - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -341,7 +324,6 @@ testthat::test_that("e2e - tm_g_forest_rsp: Changing rel_width_forest changes pl }) testthat::test_that("e2e - tm_g_forest_rsp: Changing font_size changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_rsp() plot_before <- app_driver$get_active_module_plot_output("myplot") diff --git a/tests/testthat/test-shinytest2-tm_g_forest_tte.R b/tests/testthat/test-shinytest2-tm_g_forest_tte.R index c767d14e6..d06d4f074 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_tte.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_tte.R @@ -76,7 +76,6 @@ app_driver_tm_g_forest_tte <- function() { # Initialization -------------------------------------------------------------- testthat::test_that("e2e - tm_g_forest_tte: Module initializes in teal without errors and produces output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_tte() app_driver$expect_no_shiny_error() @@ -92,7 +91,6 @@ testthat::test_that( "e2e - tm_g_forest_tte: Starts with specified label, paramcd, arm_var, buckets, paramcd, subgroup_var, strata_var and plot settings.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_tte() @@ -151,7 +149,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_forest_tte: Selection of 'paramcd' changes the element and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_tte() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -163,7 +160,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_forest_tte: Deselection of paramcd filter throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_tte() input_id <- ns_des_input("paramcd", "ADTTE", "filter1-vals") @@ -184,7 +180,6 @@ testthat::test_that("e2e - tm_g_forest_tte: Deselection of paramcd filter throws testthat::test_that( "e2e - tm_g_forest_tte: Selection of 'arm_var' changes the element and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_tte() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -196,7 +191,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_forest_tte: Deselection of paramcd var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_tte() input_id <- ns_des_input("arm_var", "ADSL", "select") @@ -217,7 +211,6 @@ testthat::test_that("e2e - tm_g_forest_tte: Deselection of paramcd var throws va testthat::test_that( "e2e - tm_g_forest_tte: Selecting conf_level does not throw validation errors and changes a plot.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_forest_tte() input_id <- "conf_level" diff --git a/tests/testthat/test-shinytest2-tm_g_ipp.R b/tests/testthat/test-shinytest2-tm_g_ipp.R index 8055c0d07..a8163c3a1 100644 --- a/tests/testthat/test-shinytest2-tm_g_ipp.R +++ b/tests/testthat/test-shinytest2-tm_g_ipp.R @@ -65,7 +65,6 @@ app_driver_tm_g_ipp <- function() { } testthat::test_that("e2e - tm_g_ipp: Module initializes in teal without errors and produces plot output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() app_driver$expect_no_shiny_error() @@ -82,7 +81,6 @@ testthat::test_that( label, parentname, arm_var, paramcd, id_var, visit_var, aval_var, avalu_var, baseline_var add_baseline_hline, separate_by_obs, suppress_legend, add_avalu.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() testthat::expect_equal( @@ -134,7 +132,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_ipp: Selecting arm_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -150,7 +147,6 @@ testthat::test_that("e2e - tm_g_ipp: Selecting arm_var changes plot and doesn't }) testthat::test_that("e2e - tm_g_ipp: Deselecting arm_var column throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-filter1-vals", NULL) @@ -164,7 +160,6 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting arm_var column throws validatio }) testthat::test_that("e2e - tm_g_ipp: Selecting paramcd changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -180,7 +175,6 @@ testthat::test_that("e2e - tm_g_ipp: Selecting paramcd changes plot and doesn't }) testthat::test_that("e2e - tm_g_ipp: Deselecting paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() app_driver$set_active_module_input("paramcd-dataset_ADLB_singleextract-filter1-vals", NULL) @@ -194,7 +188,6 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting paramcd throws validation error }) testthat::test_that("e2e - tm_g_ipp: Selecting visit_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -210,7 +203,6 @@ testthat::test_that("e2e - tm_g_ipp: Selecting visit_var changes plot and doesn' }) testthat::test_that("e2e - tm_g_ipp: Deselecting visit_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() app_driver$set_active_module_input("visit_var-dataset_ADLB_singleextract-select", NULL) @@ -224,7 +216,6 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting visit_var throws validation err }) testthat::test_that("e2e - tm_g_ipp: Selecting aval_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -240,7 +231,6 @@ testthat::test_that("e2e - tm_g_ipp: Selecting aval_var changes plot and doesn't }) testthat::test_that("e2e - tm_g_ipp: Deselecting aval_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() app_driver$set_active_module_input("aval_var-dataset_ADLB_singleextract-select", NULL) @@ -254,7 +244,6 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting aval_var throws validation erro }) testthat::test_that("e2e - tm_g_ipp: Changing add_baseline_hline changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -269,7 +258,6 @@ testthat::test_that("e2e - tm_g_ipp: Changing add_baseline_hline changes plot an app_driver$stop() }) testthat::test_that("e2e - tm_g_ipp: Changing separate_by_obs changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -285,7 +273,6 @@ testthat::test_that("e2e - tm_g_ipp: Changing separate_by_obs changes plot and d }) testthat::test_that("e2e - tm_g_ipp: Changing suppress_legend changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -301,7 +288,6 @@ testthat::test_that("e2e - tm_g_ipp: Changing suppress_legend changes plot and d }) testthat::test_that("e2e - tm_g_ipp: Changing add_avalu changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() plot_before <- app_driver$get_active_module_plot_output("myplot") diff --git a/tests/testthat/test-shinytest2-tm_g_km.R b/tests/testthat/test-shinytest2-tm_g_km.R index a20fb0f11..54b2d4dac 100644 --- a/tests/testthat/test-shinytest2-tm_g_km.R +++ b/tests/testthat/test-shinytest2-tm_g_km.R @@ -78,7 +78,6 @@ app_driver_tm_g_km <- function() { } testthat::test_that("e2e - tm_g_km: Module initializes in teal without errors and produces plot output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$expect_no_shiny_error() @@ -94,7 +93,6 @@ testthat::test_that("e2e - tm_g_km: Module initializes in teal without errors an testthat::test_that( "e2e - tm_g_km: Starts with specified paramcd, aval_var, cnsr_var, facet_var, arm_var, compare_arms, strata_var.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() @@ -138,7 +136,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_km: Changing {paramcd} changes the plot without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -149,7 +146,6 @@ testthat::test_that("e2e - tm_g_km: Changing {paramcd} changes the plot without }) testthat::test_that("e2e - tm_g_km: Changing {facet_var} changes the plot without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -160,7 +156,6 @@ testthat::test_that("e2e - tm_g_km: Changing {facet_var} changes the plot withou }) testthat::test_that("e2e - tm_g_km: Changing {arm_var} changes the plot without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -171,7 +166,6 @@ testthat::test_that("e2e - tm_g_km: Changing {arm_var} changes the plot without }) testthat::test_that("e2e - tm_g_km: Changing {compare_arms} changes the plot without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -182,7 +176,6 @@ testthat::test_that("e2e - tm_g_km: Changing {compare_arms} changes the plot wit }) testthat::test_that("e2e - tm_g_km: Changing {strata_var} changes the plot without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -193,7 +186,6 @@ testthat::test_that("e2e - tm_g_km: Changing {strata_var} changes the plot witho }) testthat::test_that("e2e - tm_g_km: Deselecting {paramcd} throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$set_active_module_input("paramcd-dataset_ADTTE_singleextract-filter1-vals", character(0)) @@ -212,7 +204,6 @@ testthat::test_that("e2e - tm_g_km: Deselecting {paramcd} throws validation erro }) testthat::test_that("e2e - tm_g_km: Deselecting {arm_var} throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$set_active_module_input(ns_des_input("arm_var", "ADSL", "select"), character(0)) @@ -227,7 +218,6 @@ testthat::test_that("e2e - tm_g_km: Deselecting {arm_var} throws validation erro }) testthat::test_that("e2e - tm_g_km: Deselecting {compare_arms} sets it to FALSE.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$set_active_module_input("compare_arms", NULL) @@ -237,7 +227,6 @@ testthat::test_that("e2e - tm_g_km: Deselecting {compare_arms} sets it to FALSE. }) testthat::test_that("e2e - tm_g_km: Deselecting {strata_var} does not throw errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$set_active_module_input(ns_des_input("strata_var", "ADSL", "select"), character(0)) @@ -248,7 +237,6 @@ testthat::test_that("e2e - tm_g_km: Deselecting {strata_var} does not throw erro # groups ---------------------------------------------------------------------------------------------------------- testthat::test_that("e2e - tm_g_km: Starts with specified groups.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() @@ -268,7 +256,6 @@ testthat::test_that("e2e - tm_g_km: Starts with specified groups.", { # comparison settings --------------------------------------------------------------------------------------------- testthat::test_that("e2e - tm_g_km: Starts with specified collapsed comparison settings.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() @@ -290,7 +277,6 @@ testthat::test_that("e2e - tm_g_km: Starts with specified collapsed comparison s }) testthat::test_that("e2e - tm_g_km: Changing {pval_method_coxph} changes the plot without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -301,7 +287,6 @@ testthat::test_that("e2e - tm_g_km: Changing {pval_method_coxph} changes the plo }) testthat::test_that("e2e - tm_g_km: Changing {ties_coxph} changes the plot without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -312,7 +297,6 @@ testthat::test_that("e2e - tm_g_km: Changing {ties_coxph} changes the plot witho }) testthat::test_that("e2e - tm_g_km: Deselecting {pval_method_coxph} gives no validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$set_active_module_input("pval_method_coxph", character(0)) @@ -321,7 +305,6 @@ testthat::test_that("e2e - tm_g_km: Deselecting {pval_method_coxph} gives no val }) testthat::test_that("e2e - tm_g_km: Deselecting {ties_coxph} gives no validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$set_active_module_input("ties_coxph", character(0)) @@ -332,7 +315,6 @@ testthat::test_that("e2e - tm_g_km: Deselecting {ties_coxph} gives no validation # plot settings --------------------------------------------------------------------------------------------------- testthat::test_that("e2e - tm_g_km: Starts with specified collapsed additional plot settings.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() @@ -374,7 +356,6 @@ test_that_plot_settings <- function(input_id, new_value) { input_id ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -396,7 +377,6 @@ test_that_plot_settings("conf_level", 0.8) test_that_plot_settings("xlab", "Time2") testthat::test_that("e2e - tm_g_km: Deselecting {conf_level} throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() app_driver$set_active_module_input("conf_level", -1) diff --git a/tests/testthat/test-shinytest2-tm_g_lineplot.R b/tests/testthat/test-shinytest2-tm_g_lineplot.R index 02d8ae792..0249b9323 100644 --- a/tests/testthat/test-shinytest2-tm_g_lineplot.R +++ b/tests/testthat/test-shinytest2-tm_g_lineplot.R @@ -64,7 +64,6 @@ app_driver_tm_g_lineplot <- function() { } testthat::test_that("e2e - tm_g_lineplot: Module initializes in teal without errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() @@ -82,7 +81,6 @@ testthat::test_that( "e2e - tm_g_lineplot: Starts with specified label, param, group_var, y, x, mid, interval, incl_screen, plot_settings and table_settings.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() @@ -113,7 +111,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_lineplot: Selecting param changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -129,7 +126,6 @@ testthat::test_that("e2e - tm_g_lineplot: Selecting param changes plot and doesn }) testthat::test_that("e2e - tm_g_lineplot: Deselecting param throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() app_driver$set_active_module_input("param-dataset_ADLB_singleextract-filter1-vals", NULL) @@ -145,7 +141,6 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting param throws validation er testthat::test_that( "e2e - tm_g_lineplot: Selecting group_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -162,7 +157,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_lineplot: Deselecting group_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() app_driver$set_active_module_input("group_var-dataset_ADSL_singleextract-select", NULL) @@ -178,7 +172,6 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting group_var throws validatio }) testthat::test_that("e2e - tm_g_lineplot: Selecting y changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -194,7 +187,6 @@ testthat::test_that("e2e - tm_g_lineplot: Selecting y changes plot and doesn't t }) testthat::test_that("e2e - tm_g_lineplot: Deselecting y throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() app_driver$set_active_module_input("y-dataset_ADLB_singleextract-select", NULL) @@ -210,7 +202,6 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting y throws validation error. }) testthat::test_that("e2e - tm_g_lineplot: Selecting conf_level changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() plot_before <- app_driver$get_active_module_plot_output("myplot") @@ -226,7 +217,6 @@ testthat::test_that("e2e - tm_g_lineplot: Selecting conf_level changes plot and }) testthat::test_that("e2e - tm_g_lineplot: Deselecting conf_level validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() app_driver$set_active_module_input("conf_level", NULL) diff --git a/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R b/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R index 1710eb134..1560f0aad 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R @@ -55,7 +55,6 @@ app_driver_tm_g_pp_adverse_events <- function() { # nolint: object_length. testthat::test_that( "e2e tm_g_pp_adverse_events - Module initializes in teal without any errors and produces the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() app_driver$expect_no_shiny_error() @@ -72,7 +71,6 @@ testthat::test_that( "e2e tm_g_pp_adverse_events - Module initializes with specific label, patient_id, aeterm, tox_grade, causality, outcome, action, time, decod.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() testthat::expect_equal( @@ -126,7 +124,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Selecting patient_id doesn't throw errors and changes the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() plot_before <- app_driver$get_active_module_plot_output("chart") @@ -152,7 +149,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Deselecting patient_id throw validation error", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "patient_id" @@ -169,7 +165,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Selecting aeterm column doesn't throw errors and changes the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() plot_before <- app_driver$get_active_module_plot_output("chart") @@ -196,7 +191,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Deselecting aeterm column throw validation error", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "aeterm-dataset_ADAE_singleextract-select" @@ -213,7 +207,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Selecting tox_grade column doesn't throw errors and changes the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() plot_before <- app_driver$get_active_module_plot_output("chart") @@ -240,7 +233,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Deselecting tox_grade column throw validation error", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "tox_grade-dataset_ADAE_singleextract-select" @@ -257,7 +249,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Selecting causality column doesn't throw errors and changes the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() plot_before <- app_driver$get_active_module_plot_output("chart") @@ -284,7 +275,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Deselecting causality column throw validation error", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "causality-dataset_ADAE_singleextract-select" @@ -301,7 +291,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Selecting outcome column doesn't throw errors and changes the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() plot_before <- app_driver$get_active_module_plot_output("chart") @@ -328,7 +317,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Deselecting outcome column throw validation error", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "outcome-dataset_ADAE_singleextract-select" @@ -345,7 +333,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Selecting action column doesn't throw errors and changes the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() plot_before <- app_driver$get_active_module_plot_output("chart") @@ -372,7 +359,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Deselecting action column throw validation error", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "action-dataset_ADAE_singleextract-select" @@ -389,7 +375,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Selecting time column doesn't throw errors and changes the plot and table.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() plot_before <- app_driver$get_active_module_plot_output("chart") @@ -416,7 +401,6 @@ testthat::test_that( testthat::test_that( "e2e tm_g_pp_adverse_events - Deselecting time column throw validation error", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "time-dataset_ADAE_singleextract-select" diff --git a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R index adc77e528..9f18e16e1 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R @@ -89,7 +89,6 @@ app_driver_tm_g_pp_patient_timeline <- function() { # nolint object_length. testthat::test_that( "e2e - tm_g_pp_patient_timeline: Module initializes in teal without errors and produces plot output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$expect_no_shiny_error() @@ -108,7 +107,6 @@ testthat::test_that( "e2e - tm_g_pp_patient_timeline: Starts with specified label, patient_id, cmdecod, aeterm, aetime_start, aetime_end, dstime_start, dstime_end, aerelday_start, aerelday_end, dsrelday_start, dsrelday_en.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() @@ -174,7 +172,6 @@ testthat::test_that( "e2e - tm_g_pp_patient_timeline: Encodings aerelday_start, aerelday_end, dsrelday_start, dsrelday_end are shown only when relday_x_axis is checked.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() @@ -206,7 +203,6 @@ testthat::test_that( "e2e - tm_g_pp_patient_timeline: Encodings aetime_start, aetime_end, dstime_start, dstime_end are shown only when relday_x_axis is unchecked.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() @@ -237,7 +233,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting patient_id changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -254,7 +249,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_pp_patient_timeline: Deselecting patient_id column throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("patient_id", NULL) @@ -270,7 +264,6 @@ testthat::test_that("e2e - tm_g_pp_patient_timeline: Deselecting patient_id colu testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting cmdecod changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -289,7 +282,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting cmdecod changes plot and doesn't throw validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -303,7 +295,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting aeterm changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -322,7 +313,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting aeterm changes plot and doesn't throw validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -336,7 +326,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting aetime_start changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -356,7 +345,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting aetime_start throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -374,7 +362,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting aetime_end changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -394,7 +381,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting aetime_end throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -412,7 +398,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting aerelday_start changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -431,7 +416,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting aerelday_start throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("aerelday_start-dataset_ADAE_singleextract-select", NULL) @@ -448,7 +432,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting aerelday_end changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -467,7 +450,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting aerelday_end throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("aerelday_end-dataset_ADAE_singleextract-select", NULL) @@ -484,7 +466,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting dstime_start changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -504,7 +485,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting dstime_start throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -522,7 +502,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting dstime_end changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -542,7 +521,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting dstime_end throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("relday_x_axis", FALSE) @@ -560,7 +538,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting dsrelday_start changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -579,7 +556,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting dsrelday_start throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("dsrelday_start-dataset_ADCM_singleextract-select", NULL) @@ -596,7 +572,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Selecting dsrelday_end changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() plot_before <- app_driver$get_active_module_plot_output("patient_timeline_plot") @@ -615,7 +590,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_g_pp_patient_timeline: Deselecting dsrelday_end throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_patient_timeline() app_driver$set_active_module_input("dsrelday_end-dataset_ADCM_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_g_pp_therapy.R b/tests/testthat/test-shinytest2-tm_g_pp_therapy.R index fdce00290..7e66e1d45 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_therapy.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_therapy.R @@ -89,7 +89,6 @@ app_driver_tm_g_pp_therapy <- function() { # Initialization -------------------------------------------------------------- testthat::test_that("e2e - tm_g_pp_therapy: Module initializes in teal without errors and produces output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_therapy() @@ -110,7 +109,6 @@ testthat::test_that( "e2e - tm_g_pp_therapy: Starts with specified label, paramcd, arm_var, buckets, paramcd, subgroup_var, strata_var and plot settings.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_therapy() @@ -153,7 +151,6 @@ test_different_selection <- function(input_name, input_id, new_value) { input_name ), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_therapy() plot_before <- list( @@ -190,7 +187,6 @@ test_different_selection("cmendy", ns_des_input("cmendy", "ADCM", "select"), "AE testthat::test_that( "e2e - tm_g_pp_therapy: Changing font_size changes the plot and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_therapy() plot_before <- app_driver$get_active_module_plot_output("therapy_plot") @@ -210,7 +206,6 @@ test_delection_validation <- function(input_name, input_id, deselect_message) { deselect_message <- sprintf("Please select %s variable.", toupper(input_name)) } testthat::test_that(sprintf("e2e - tm_g_pp_therapy: Deselection of %s throws validation error.", input_name), { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_therapy() app_driver$set_active_module_input(input_id, NULL) diff --git a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R index d13bb5a20..a35d3ef9c 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R @@ -36,7 +36,6 @@ app_driver_tm_g_pp_vitals <- function() { } testthat::test_that("e2e - tm_g_pp_vitals: Module initializes in teal without errors and produces plot output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() app_driver$expect_no_shiny_error() @@ -56,7 +55,6 @@ testthat::test_that( "e2e - tm_g_pp_vitals: Starts with specified label, patient_id, paramcd, xaxis, aval_var, font_size, parentname, patient_col.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() @@ -93,7 +91,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_pp_vitals: Selecting patient_id changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() plot_before <- app_driver$get_active_module_plot_output("vitals_plot") @@ -109,7 +106,6 @@ testthat::test_that("e2e - tm_g_pp_vitals: Selecting patient_id changes plot and }) testthat::test_that("e2e - tm_g_pp_vitals: Deselecting patient_id column throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() app_driver$set_active_module_input("patient_id", NULL) @@ -126,7 +122,6 @@ testthat::test_that( "e2e - tm_g_pp_vitals: Selecting valid paramcd and paramcd_levels_vals changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() plot_before <- app_driver$get_active_module_plot_output("vitals_plot") @@ -163,7 +158,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_g_pp_vitals: Deselecting paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() app_driver$set_active_module_input("paramcd-dataset_ADVS_singleextract-select", NULL) @@ -177,7 +171,6 @@ testthat::test_that("e2e - tm_g_pp_vitals: Deselecting paramcd throws validation }) testthat::test_that("e2e - tm_g_pp_vitals: Selecting xaxis changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() plot_before <- app_driver$get_active_module_plot_output("vitals_plot") @@ -193,7 +186,6 @@ testthat::test_that("e2e - tm_g_pp_vitals: Selecting xaxis changes plot and does }) testthat::test_that("e2e - tm_g_pp_vitals: Deselecting xaxis column throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() app_driver$set_active_module_input("xaxis-dataset_ADVS_singleextract-select", NULL) @@ -207,7 +199,6 @@ testthat::test_that("e2e - tm_g_pp_vitals: Deselecting xaxis column throws valid }) testthat::test_that("e2e - tm_g_pp_vitals: Selecting aval_var changes plot and doesn't throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() plot_before <- app_driver$get_active_module_plot_output("vitals_plot") @@ -223,7 +214,6 @@ testthat::test_that("e2e - tm_g_pp_vitals: Selecting aval_var changes plot and d }) testthat::test_that("e2e - tm_g_pp_vitals: Deselecting aval_var column throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() app_driver$set_active_module_input("aval_var-dataset_ADVS_singleextract-select", NULL) @@ -237,7 +227,6 @@ testthat::test_that("e2e - tm_g_pp_vitals: Deselecting aval_var column throws va }) testthat::test_that("e2e - tm_g_pp_vitals: Changing font_size changes plot and doesn't throw validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_vitals() plot_before <- app_driver$get_active_module_plot_output("vitals_plot") diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality.R b/tests/testthat/test-shinytest2-tm_t_abnormality.R index 4af5871f1..5e850c06a 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality.R @@ -63,7 +63,6 @@ app_driver_tm_t_abnormality <- function() { } testthat::test_that("e2e - tm_t_abnormality: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() app_driver$expect_no_shiny_error() @@ -79,7 +78,6 @@ testthat::test_that( "e2e - tm_t_abnormality: Starts with specified label, arm_var, by_vars, add_total, exclude_base_abn, drop_arm_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() @@ -113,7 +111,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_abnormality: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -130,7 +127,6 @@ testthat::test_that( ) testthat::test_that("e2e - arm_var: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -146,7 +142,6 @@ testthat::test_that("e2e - arm_var: Deselection of arm_var throws validation err testthat::test_that( "e2e - tm_t_abnormality: Selecting by_vars changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -163,7 +158,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_abnormality: Deselection of by_vars throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() app_driver$set_active_module_input("by_vars-dataset_ADLB_singleextract-select", NULL) @@ -179,7 +173,6 @@ testthat::test_that("e2e - tm_t_abnormality: Deselection of by_vars throws valid testthat::test_that( "e2e - tm_t_abnormality: Changing add_total changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -198,7 +191,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_abnormality: Changing exclude_base_abn changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -217,7 +209,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_abnormality: Changing drop_arm_levels does not change the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R index b5401fba8..6fa89a13c 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R @@ -58,7 +58,6 @@ app_driver_tm_t_abnormality_by_worst_grade <- function() { # nolint: object_leng testthat::test_that( "e2e - tm_t_abnormality_by_worst_grade: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() app_driver$expect_no_shiny_error() @@ -75,7 +74,6 @@ testthat::test_that( "e2e - tm_t_abnormality_by_worst_grade: Starts with specified label, arm_var, paramcd, id_var, atoxgr_var, worst_high_flag_var, worst_low_flag_var, worst_flag_indicator, add_total, drop_arm_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() @@ -120,7 +118,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_abnormality_by_worst_grade: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -139,7 +136,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_abnormality_by_worst_grade: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -156,7 +152,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_abnormality_by_worst_grade: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -170,7 +165,6 @@ testthat::test_that("e2e - tm_t_abnormality_by_worst_grade: Deselection of arm_v }) testthat::test_that("e2e - tm_t_abnormality_by_worst_grade: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() app_driver$set_active_module_input("paramcd-dataset_ADLB_singleextract-filter1-vals", NULL) @@ -188,7 +182,6 @@ testthat::test_that("e2e - tm_t_abnormality_by_worst_grade: Deselection of param testthat::test_that( "e2e - tm_t_abnormality_by_worst_grade: Changing add_total changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -208,7 +201,6 @@ testthat::test_that( "e2e - tm_t_abnormality_by_worst_grade: Changing drop_arm_levels does not change the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_abnormality_by_worst_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_ancova.R b/tests/testthat/test-shinytest2-tm_t_ancova.R index 4d80f8cfe..b0bb54384 100644 --- a/tests/testthat/test-shinytest2-tm_t_ancova.R +++ b/tests/testthat/test-shinytest2-tm_t_ancova.R @@ -60,7 +60,6 @@ app_driver_tm_t_ancova <- function() { } testthat::test_that("e2e - tm_t_ancova: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() app_driver$expect_no_shiny_error() @@ -75,7 +74,6 @@ testthat::test_that( "e2e - tm_t_ancova: Starts with specified label, avisit, paramcd, aval_var, aval_var, arm_var, buckets, combine_comp_arms, interact_var, cov_var, conf_level, include_interact.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() @@ -131,7 +129,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_ancova: Selecting avisit changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -151,7 +148,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_ancova: Deselection of avisit throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() app_driver$set_active_module_input("avisit-dataset_ADQS_singleextract-filter1-vals", NULL) @@ -169,7 +165,6 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of avisit throws validation testthat::test_that( "e2e - tm_t_ancova: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -186,7 +181,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_ancova: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() app_driver$set_active_module_input("paramcd-dataset_ADQS_singleextract-filter1-vals", NULL) @@ -204,7 +198,6 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of paramcd throws validation testthat::test_that( "e2e - tm_t_ancova: Selecting aval_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -221,7 +214,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_ancova: Deselection of aval_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() app_driver$set_active_module_input("aval_var-dataset_ADQS_singleextract-select", NULL) @@ -237,7 +229,6 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of aval_var throws validatio testthat::test_that( "e2e - tm_t_ancova: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -254,7 +245,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_ancova: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -270,7 +260,6 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of arm_var throws validation testthat::test_that( "e2e - tm_t_ancova: Selecting cov_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -289,7 +278,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_ancova: Deselection of cov_var changes table and doesn't throw validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_ancova() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R index f903ab367..d6fe91634 100644 --- a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R +++ b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R @@ -90,7 +90,6 @@ app_driver_tm_t_binary_outcome <- function() { } testthat::test_that("e2e - tm_t_binary_outcome: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() app_driver$expect_no_shiny_error() @@ -106,7 +105,6 @@ testthat::test_that( buckets, u_diff_ci, u_diff_test, strata_var, s_diff_ci, prop_ci_method, conf_level, aval_var, compare_arms, combine_comp_arms, u_odds_ratio, show_rsp_cat.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() @@ -172,7 +170,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_binary_outcome: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -189,7 +186,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_binary_outcome: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() app_driver$set_active_module_input("paramcd-dataset_ADRS_singleextract-filter1-vals", NULL) @@ -207,7 +203,6 @@ testthat::test_that("e2e - tm_t_binary_outcome: Deselection of paramcd throws va testthat::test_that( "e2e - tm_t_binary_outcome: Selecting responders changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -224,7 +219,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_binary_outcome: Deselection of responders throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() app_driver$set_active_module_input("responders", NULL) @@ -240,7 +234,6 @@ testthat::test_that("e2e - tm_t_binary_outcome: Deselection of responders throws testthat::test_that( "e2e - tm_t_binary_outcome: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -257,7 +250,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_binary_outcome: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -273,7 +265,6 @@ testthat::test_that("e2e - tm_t_binary_outcome: Deselection of arm_var throws va testthat::test_that( "e2e - tm_t_binary_outcome: Selecting strata_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -293,7 +284,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_binary_outcome: Deselection of strata_var changes the table and does not throw validation errors.", # nolint line_length_linter { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_coxreg.R b/tests/testthat/test-shinytest2-tm_t_coxreg.R index 37713278e..1816c5bf3 100644 --- a/tests/testthat/test-shinytest2-tm_t_coxreg.R +++ b/tests/testthat/test-shinytest2-tm_t_coxreg.R @@ -59,7 +59,6 @@ app_driver_tm_t_coxreg <- function() { } testthat::test_that("e2e - tm_t_coxreg: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() app_driver$expect_no_shiny_error() @@ -74,7 +73,6 @@ testthat::test_that( "e2e - tm_t_coxreg: Starts with specified label, type, paramcd, arm_var, buckets, cov_var, strata_var, pval_method, ties, conf_level, combine_comp_arms.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() testthat::expect_equal( @@ -128,7 +126,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_coxreg: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -145,7 +142,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_coxreg: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() app_driver$set_active_module_input("paramcd-dataset_ADTTE_singleextract-filter1-vals", NULL) @@ -163,7 +159,6 @@ testthat::test_that("e2e - tm_t_coxreg: Deselection of paramcd throws validation testthat::test_that( "e2e - tm_t_coxreg: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -180,7 +175,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_coxreg: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -196,7 +190,6 @@ testthat::test_that("e2e - tm_t_coxreg: Deselection of arm_var throws validation testthat::test_that( "e2e - tm_t_coxreg: Selecting cov_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -215,7 +208,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_coxreg: Deselection of cov_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -234,7 +226,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_coxreg: Selecting strata_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -253,7 +244,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_coxreg: Deselection of strata_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_events.R b/tests/testthat/test-shinytest2-tm_t_events.R index e79edd2af..9e5d77450 100644 --- a/tests/testthat/test-shinytest2-tm_t_events.R +++ b/tests/testthat/test-shinytest2-tm_t_events.R @@ -41,7 +41,6 @@ app_driver_tm_t_events <- function() { } testthat::test_that("e2e - tm_t_events: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() app_driver$expect_no_shiny_error() @@ -56,7 +55,6 @@ testthat::test_that( "e2e - tm_t_events: Starts with specified label, arm_var, hlt, llt, sort_criteria, prune_freq, prune_diff, add_total, drop_arm_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() @@ -97,7 +95,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -114,7 +111,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_events: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -130,7 +126,6 @@ testthat::test_that("e2e - tm_t_events: Deselection of arm_var throws validation testthat::test_that( "e2e - tm_t_events: Selecting hlt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -149,7 +144,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events: Deselection of hlt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -168,7 +162,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events: Selecting llt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -187,7 +180,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events: Deselection of llt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R index 85ab617e3..379d311eb 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R @@ -53,7 +53,6 @@ app_driver_tm_t_events_by_grade <- function() { # nolint: object_length. testthat::test_that( "e2e - tm_t_events_by_grade: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() app_driver$expect_no_shiny_error() @@ -69,7 +68,6 @@ testthat::test_that( "e2e - tm_t_events_by_grade: Starts with specified label, arm_var, hlt, llt, grade, prune_freq, prune_diff, add_total, col_by_grade, drop_arm_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() testthat::expect_equal( @@ -110,7 +108,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_by_grade: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -127,7 +124,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_events_by_grade: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -143,7 +139,6 @@ testthat::test_that("e2e - tm_t_events_by_grade: Deselection of arm_var throws v testthat::test_that( "e2e - tm_t_events_by_grade: Selecting hlt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -162,7 +157,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_by_grade: Deselection of hlt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -181,7 +175,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_by_grade: Selecting llt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -200,7 +193,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_by_grade: Deselection of llt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -219,7 +211,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_by_grade: Selecting grade changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -236,7 +227,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_events_by_grade: Deselection of grade throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() app_driver$set_active_module_input("grade-dataset_ADAE_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_events_patyear.R b/tests/testthat/test-shinytest2-tm_t_events_patyear.R index aed20ea48..c2627c0d3 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_patyear.R +++ b/tests/testthat/test-shinytest2-tm_t_events_patyear.R @@ -55,7 +55,6 @@ app_driver_tm_t_events_patyear <- function() { } testthat::test_that("e2e - tm_t_events_patyear: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() app_driver$expect_no_shiny_error() @@ -70,7 +69,6 @@ testthat::test_that( "e2e - tm_t_events_patyear: Starts with specified label, arm_var, paramcd, conf_level, conf_method, num_pt_year, input_time_unit, add_total, drop_arm_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() testthat::expect_equal( @@ -110,7 +108,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_patyear: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() table_before <- app_driver$get_active_module_table_output("patyear_table-table-with-settings") @@ -127,7 +124,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_events_patyear: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() app_driver$set_active_module_input("paramcd-dataset_ADAETTE_singleextract-filter1-vals", NULL) @@ -148,7 +144,6 @@ testthat::test_that("e2e - tm_t_events_patyear: Deselection of paramcd throws va testthat::test_that( "e2e - tm_t_events_patyear: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() table_before <- app_driver$get_active_module_table_output("patyear_table-table-with-settings") @@ -165,7 +160,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_events_patyear: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -184,7 +178,6 @@ testthat::test_that("e2e - tm_t_events_patyear: Deselection of arm_var throws va testthat::test_that( "e2e - tm_t_events_patyear: Selecting 2 variables as arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() table_before <- app_driver$get_active_module_table_output("patyear_table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_events_summary.R b/tests/testthat/test-shinytest2-tm_t_events_summary.R index a3a08f3f7..d1c713e27 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_events_summary.R @@ -94,7 +94,6 @@ app_driver_tm_t_events_summary <- function() { } testthat::test_that("e2e - tm_t_events_summary: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() app_driver$expect_no_shiny_error() @@ -109,7 +108,6 @@ testthat::test_that( "e2e - tm_t_events_summary: Starts with specified label, arm_var, flag_var_anl, flag_var_aesi, add_total, count_subj, count_pt, count_events.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() testthat::expect_equal( @@ -139,7 +137,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_summary: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -156,7 +153,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_events_summary: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -172,7 +168,6 @@ testthat::test_that("e2e - tm_t_events_summary: Deselection of arm_var throws va testthat::test_that( "e2e - tm_t_events_summary: Selecting flag_var_anl changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -192,7 +187,6 @@ testthat::test_that( "e2e - tm_t_events_summary: Deselection of flag_var_anl changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -212,7 +206,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_events_summary: Selecting flag_var_aesi changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -232,7 +225,6 @@ testthat::test_that( "e2e - tm_t_events_summary: Deselection of flag_var_aesi changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") diff --git a/tests/testthat/test-shinytest2-tm_t_exposure.R b/tests/testthat/test-shinytest2-tm_t_exposure.R index c6a82894d..03f05e8e3 100644 --- a/tests/testthat/test-shinytest2-tm_t_exposure.R +++ b/tests/testthat/test-shinytest2-tm_t_exposure.R @@ -71,7 +71,6 @@ app_driver_tm_t_exposure <- function() { } testthat::test_that("e2e - tm_t_exposure: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() app_driver$expect_no_shiny_error() @@ -86,7 +85,6 @@ testthat::test_that( "e2e - tm_t_exposure: Starts with specified label, paramcd, parcat, col_by_var, row_by_var, add_total_row, add_total", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() testthat::expect_equal( @@ -118,7 +116,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_exposure: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -135,7 +132,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_exposure: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() app_driver$set_active_module_input("paramcd-dataset_ADEX_singleextract-filter1-vals", NULL) @@ -153,7 +149,6 @@ testthat::test_that("e2e - tm_t_exposure: Deselection of paramcd throws validati testthat::test_that( "e2e - tm_t_exposure: Selecting parcat changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -170,7 +165,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_exposure: Deselection of parcat throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() app_driver$set_active_module_input("parcat-dataset_ADEX_singleextract-filter1-vals", NULL) @@ -188,7 +182,6 @@ testthat::test_that("e2e - tm_t_exposure: Deselection of parcat throws validatio testthat::test_that( "e2e - tm_t_exposure: Selecting col_by_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -207,7 +200,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_exposure: Deselection of col_by_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -226,7 +218,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_exposure: Selecting row_by_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -243,7 +234,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_exposure: Deselection of row_by_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() app_driver$set_active_module_input("row_by_var-dataset_ADEX_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_logistic.R b/tests/testthat/test-shinytest2-tm_t_logistic.R index 89da853d5..c5f095a68 100644 --- a/tests/testthat/test-shinytest2-tm_t_logistic.R +++ b/tests/testthat/test-shinytest2-tm_t_logistic.R @@ -53,7 +53,6 @@ app_driver_tm_t_logistic <- function() { } testthat::test_that("e2e - tm_t_logistic: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() app_driver$expect_no_shiny_error() @@ -68,7 +67,6 @@ testthat::test_that( "e2e - tm_t_logistic: Starts with specified label, paramcd, responders, arm_var, buckets, cov_var, interaction_var, conf_level, combine_comp_arms.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() testthat::expect_equal( @@ -111,7 +109,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_logistic: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -128,7 +125,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_logistic: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() app_driver$set_active_module_input("paramcd-dataset_ADRS_singleextract-filter1-vals", NULL) @@ -146,7 +142,6 @@ testthat::test_that("e2e - tm_t_logistic: Deselection of paramcd throws validati testthat::test_that( "e2e - tm_t_logistic: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -163,7 +158,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_logistic: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -179,7 +173,6 @@ testthat::test_that("e2e - tm_t_logistic: Deselection of arm_var throws validati testthat::test_that( "e2e - tm_t_logistic: Selecting cov_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -196,7 +189,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_logistic: Deselection of cov_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() app_driver$set_active_module_input("cov_var-dataset_ADRS_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_mult_events.R b/tests/testthat/test-shinytest2-tm_t_mult_events.R index 8a06f2dc2..86af72a8e 100644 --- a/tests/testthat/test-shinytest2-tm_t_mult_events.R +++ b/tests/testthat/test-shinytest2-tm_t_mult_events.R @@ -40,7 +40,6 @@ app_driver_tm_t_mult_events <- function() { } testthat::test_that("e2e - tm_t_mult_events: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() app_driver$expect_no_shiny_error() @@ -54,7 +53,6 @@ testthat::test_that("e2e - tm_t_mult_events: Module initializes in teal without testthat::test_that( "e2e - tm_t_mult_events: Starts with specified label, arm_var, hlt, llt, add_total, drop_arm_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() testthat::expect_equal( @@ -82,7 +80,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_mult_events: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -99,7 +96,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_mult_events: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -115,7 +111,6 @@ testthat::test_that("e2e - tm_t_mult_events: Deselection of arm_var throws valid testthat::test_that( "e2e - tm_t_mult_events: Selecting hlt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -134,7 +129,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_mult_events: Deselection of hlt changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -151,7 +145,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_mult_events: Deselection of llt throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() app_driver$set_active_module_input("llt-dataset_ADCM_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R index 2b4608512..c1ab0d30c 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R @@ -24,7 +24,6 @@ app_driver_tm_t_pp_basic_info <- function() { } testthat::test_that("e2e - tm_t_pp_basic_info: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_basic_info() app_driver$expect_no_shiny_error() @@ -36,7 +35,6 @@ testthat::test_that("e2e - tm_t_pp_basic_info: Module initializes in teal withou }) testthat::test_that("e2e - tm_t_pp_basic_info: Starts with specified label, patient_id, vars.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_basic_info() testthat::expect_equal( @@ -57,7 +55,6 @@ testthat::test_that("e2e - tm_t_pp_basic_info: Starts with specified label, pati testthat::test_that( "e2e - tm_t_pp_basic_info: Selecting patient_id changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_basic_info() table_before <- app_driver$get_active_module_table_output("basic_info_table") @@ -76,7 +73,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_basic_info: Deselection of patient_id throws validation error and table is not visible.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_basic_info() app_driver$set_active_module_input("patient_id", NULL) @@ -98,7 +94,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_basic_info: Selecting cov_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_basic_info() table_before <- app_driver$get_active_module_table_output("basic_info_table") @@ -118,7 +113,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_basic_info: Deselection of cov_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_basic_info() app_driver$set_active_module_input("vars-dataset_ADSL_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R index 46a2b0140..ecac29e4b 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R @@ -46,7 +46,6 @@ 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.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$expect_no_shiny_error() @@ -61,7 +60,6 @@ testthat::test_that( "e2e - tm_t_pp_laboratory: Starts with specified label, patient_id, paramcd, param, timepoints, aval_var, avalu_var, anrind, round_value.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() @@ -108,7 +106,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_laboratory: Selecting patient_id changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2) @@ -125,7 +122,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of patient_id throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$set_active_module_input("patient_id", NULL) @@ -147,7 +143,6 @@ testthat::test_that( "e2e - tm_t_pp_laboratory: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2) @@ -164,7 +159,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$set_active_module_input("paramcd-dataset_ADLB_singleextract-select", NULL) @@ -186,7 +180,6 @@ testthat::test_that( "e2e - tm_t_pp_laboratory: Selecting param changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2) @@ -205,7 +198,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_laboratory: Deselection of param throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$set_active_module_input("param-dataset_ADLB_singleextract-select", NULL) @@ -228,7 +220,6 @@ testthat::test_that( "e2e - tm_t_pp_laboratory: Selecting timepoints changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2) @@ -245,7 +236,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of timepoints throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$set_active_module_input("timepoints-dataset_ADLB_singleextract-select", NULL) @@ -269,7 +259,6 @@ testthat::test_that( "e2e - tm_t_pp_laboratory: Selecting avalu changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2) @@ -286,7 +275,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of avalu throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$set_active_module_input("avalu_var-dataset_ADLB_singleextract-select", NULL) @@ -310,7 +298,6 @@ testthat::test_that( "e2e - tm_t_pp_laboratory: Selecting aval_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2) @@ -327,7 +314,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of aval_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$set_active_module_input("aval_var-dataset_ADLB_singleextract-select", NULL) @@ -349,7 +335,6 @@ testthat::test_that( "e2e - tm_t_pp_laboratory: Selecting arind changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() table_before <- app_driver$get_active_module_table_output("lab_values_table", which = 2) @@ -366,7 +351,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of arind throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_laboratory() app_driver$set_active_module_input("anrind-dataset_ADLB_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R index fc06bffbd..85c8446bd 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R @@ -36,7 +36,6 @@ app_driver_tm_t_pp_medical_history <- function() { # nolint: object_length. testthat::test_that( "e2e - tm_t_pp_medical_history: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() app_driver$expect_no_shiny_error() @@ -51,7 +50,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_medical_history: Starts with specified label, patient_id, mhterm, mhbodsys, mhdistat.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() @@ -82,7 +80,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_medical_history: Selecting patient_id changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -99,7 +96,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of patient_id throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() app_driver$set_active_module_input("patient_id", NULL) @@ -115,7 +111,6 @@ testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of patient_id th testthat::test_that( "e2e - tm_t_pp_medical_history: Selecting mhterm changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -132,7 +127,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhterm throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() app_driver$set_active_module_input("mhterm-dataset_ADMH_singleextract-select", NULL) @@ -148,7 +142,6 @@ testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhterm throws testthat::test_that( "e2e - tm_t_pp_medical_history: Selecting mhbodsys changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -165,7 +158,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhbodsys throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() app_driver$set_active_module_input("mhbodsys-dataset_ADMH_singleextract-select", NULL) @@ -181,7 +173,6 @@ testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhbodsys thro testthat::test_that( "e2e - tm_t_pp_medical_history: Selecting mhbodsys changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -198,7 +189,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhdistat throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_medical_history() app_driver$set_active_module_input("mhdistat-dataset_ADMH_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R index f36f4a651..090ba7c45 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R @@ -46,7 +46,6 @@ app_driver_tm_t_pp_prior_medication <- function() { # nolint: object_length. testthat::test_that( "e2e - tm_t_pp_prior_medication: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() app_driver$expect_no_shiny_error() @@ -61,7 +60,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_prior_medication: Starts with specified label, patient_id, cmdecod, atirel, cmindc, cmstdy.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() testthat::expect_equal( @@ -95,7 +93,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_pp_prior_medication: Selecting patient_id changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() table_before <- app_driver$get_active_module_table_output("prior_medication_table") @@ -112,7 +109,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of patient_id throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() app_driver$set_active_module_input("patient_id", NULL) @@ -127,7 +123,6 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of patient_id t testthat::test_that( "e2e - tm_t_pp_prior_medication: Selecting cmdecod changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() table_before <- app_driver$get_active_module_table_output("prior_medication_table") @@ -144,7 +139,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmdecod throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() app_driver$set_active_module_input("cmdecod-dataset_ADCM_singleextract-select", NULL) @@ -159,7 +153,6 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmdecod thro testthat::test_that( "e2e - tm_t_pp_prior_medication: Selecting atirel changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() table_before <- app_driver$get_active_module_table_output("prior_medication_table") @@ -176,7 +169,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of atirel throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() app_driver$set_active_module_input("atirel-dataset_ADCM_singleextract-select", NULL) @@ -191,7 +183,6 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of atirel throw testthat::test_that( "e2e - tm_t_pp_prior_medication: Selecting cmindc changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() table_before <- app_driver$get_active_module_table_output("prior_medication_table") @@ -208,7 +199,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmindc throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() app_driver$set_active_module_input("cmindc-dataset_ADCM_singleextract-select", NULL) @@ -223,7 +213,6 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmindc throw testthat::test_that( "e2e - tm_t_pp_prior_medication: Selecting cmstdy changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() table_before <- app_driver$get_active_module_table_output("prior_medication_table") @@ -240,7 +229,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmstdy throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() app_driver$set_active_module_input("cmstdy-dataset_ADCM_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R index 209533c12..d0e197485 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R @@ -51,7 +51,6 @@ app_driver_tm_t_shift_by_arm <- function() { } testthat::test_that("e2e - tm_t_shift_by_arm: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() app_driver$expect_no_shiny_error() @@ -66,7 +65,6 @@ testthat::test_that( "e2e - tm_t_shift_by_arm: Starts with specified label, arm_varparamcd, visit_var, useNA, treatment_flag_var, add_total.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() testthat::expect_equal( @@ -101,7 +99,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_shift_by_arm: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -118,7 +115,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -134,7 +130,6 @@ testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of arm_var throws vali testthat::test_that( "e2e - tm_t_shift_by_arm: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -151,7 +146,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() app_driver$set_active_module_input("paramcd-dataset_ADEG_singleextract-filter1-vals", NULL) @@ -169,7 +163,6 @@ testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of paramcd throws vali testthat::test_that( "e2e - tm_t_shift_by_arm: Selecting visit_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -186,7 +179,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of visit_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() app_driver$set_active_module_input("visit_var-dataset_ADEG_singleextract-filter1-vals", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R index 2744d965f..35c83feaf 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R @@ -53,7 +53,6 @@ app_driver_tm_t_shift_by_arm_by_worst <- function() { # nolint: object_length. testthat::test_that( "e2e - tm_t_shift_by_arm_by_worst: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() app_driver$expect_no_shiny_error() @@ -69,7 +68,6 @@ testthat::test_that( "e2e - tm_t_shift_by_arm_by_worst: Starts with specified label, arm_var, paramcd, worst_flag_var, aval_var, baseline_var, useNA, treatment_flag_var, add_total.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() @@ -114,7 +112,6 @@ testthat::test_that( "e2e - tm_t_shift_by_arm_by_worst: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -131,7 +128,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -147,7 +143,6 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of arm_var th testthat::test_that( "e2e - tm_t_shift_by_arm_by_worst: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -164,7 +159,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() app_driver$set_active_module_input("paramcd-dataset_ADEG_singleextract-filter1-vals", NULL) @@ -183,7 +177,6 @@ testthat::test_that( "e2e - tm_t_shift_by_arm_by_worst: Selecting worst_flag changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -200,7 +193,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of worst_flag throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() app_driver$set_active_module_input("worst_flag_var-dataset_ADEG_singleextract-select", NULL) @@ -219,7 +211,6 @@ testthat::test_that( "e2e - tm_t_shift_by_arm_by_worst: Selecting aval_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -236,7 +227,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of aval_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() app_driver$set_active_module_input("aval_var-dataset_ADEG_singleextract-select", NULL) @@ -253,7 +243,6 @@ testthat::test_that( "e2e - tm_t_shift_by_arm_by_worst: Selecting baseline_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -270,7 +259,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of baseline_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm_by_worst() app_driver$set_active_module_input("baseline_var-dataset_ADEG_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R index 2aeff80a7..3b77b7027 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R @@ -67,7 +67,6 @@ app_driver_tm_t_shift_by_grade <- function() { testthat::test_that( "e2e - tm_t_shift_by_grade: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() app_driver$expect_no_shiny_error() @@ -83,7 +82,6 @@ testthat::test_that( "e2e - tm_t_shift_by_grade: Starts with specified label, arm_var, paramcd, worst_flag_var, anl_toxgrade_var, base_toxgrade_var, worst_flag_indicator, add_total, drop_arm_levels, code_missing_baseline.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() testthat::expect_equal( @@ -124,7 +122,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_shift_by_grade: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -141,7 +138,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -157,7 +153,6 @@ testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of arm_var throws va testthat::test_that( "e2e - tm_t_shift_by_grade: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -174,7 +169,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() app_driver$set_active_module_input("paramcd-dataset_ADLB_singleextract-filter1-vals", NULL) @@ -192,7 +186,6 @@ testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of paramcd throws va testthat::test_that( "e2e - tm_t_shift_by_grade: Selecting worst_flag changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -209,7 +202,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of worst_flag throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() app_driver$set_active_module_input("worst_flag_var-dataset_ADLB_singleextract-select", NULL) @@ -280,7 +272,6 @@ app_driver_tm_t_shift_by_grade_invalid_data <- function() { # nolint: object_len testthat::test_that( "e2e - tm_t_shift_by_grade: Invalid worst flag indicator shows validation error instead of hanging", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade_invalid_data() app_driver$expect_validation_error() diff --git a/tests/testthat/test-shinytest2-tm_t_smq.R b/tests/testthat/test-shinytest2-tm_t_smq.R index 526d4193f..4a3b407a0 100644 --- a/tests/testthat/test-shinytest2-tm_t_smq.R +++ b/tests/testthat/test-shinytest2-tm_t_smq.R @@ -56,7 +56,6 @@ app_driver_tm_t_smq <- function() { } testthat::test_that("e2e - tm_t_smq: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() app_driver$expect_no_shiny_error() @@ -70,7 +69,6 @@ testthat::test_that("e2e - tm_t_smq: Module initializes in teal without errors a testthat::test_that( "e2e - tm_t_smq: Starts with specified label, arm_var, llt, baskets, sort_criteria, add_total, drop_arm_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() testthat::expect_equal( @@ -102,7 +100,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_smq: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -119,7 +116,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_smq: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -133,7 +129,6 @@ testthat::test_that("e2e - tm_t_smq: Deselection of arm_var throws validation er }) testthat::test_that("e2e - tm_t_smq: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -149,7 +144,6 @@ testthat::test_that("e2e - tm_t_smq: Selecting paramcd changes the table and doe }) testthat::test_that("e2e - tm_t_smq: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() app_driver$set_active_module_input("llt-dataset_ADAE_singleextract-select", NULL) @@ -165,7 +159,6 @@ testthat::test_that("e2e - tm_t_smq: Deselection of paramcd throws validation er testthat::test_that( "e2e - tm_t_smq: Selecting worst_flag changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -182,7 +175,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_smq: Deselection of worst_flag throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() app_driver$set_active_module_input("baskets-dataset_ADAE_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_summary.R b/tests/testthat/test-shinytest2-tm_t_summary.R index e61afae38..1fb2bd60c 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_summary.R @@ -36,7 +36,6 @@ app_driver_tm_t_summary <- function() { } testthat::test_that("e2e - tm_t_summary: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary() app_driver$expect_no_shiny_error() @@ -48,7 +47,6 @@ testthat::test_that("e2e - tm_t_summary: Module initializes in teal without erro }) testthat::test_that("e2e - tm_t_summary: Starts with specified label, arm_var, summarize_vars, useNA, denominator.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary() testthat::expect_equal( @@ -77,7 +75,6 @@ testthat::test_that("e2e - tm_t_summary: Starts with specified label, arm_var, s testthat::test_that( "e2e - tm_t_summary: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -94,7 +91,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_summary: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -110,7 +106,6 @@ testthat::test_that("e2e - tm_t_summary: Deselection of arm_var throws validatio testthat::test_that( "e2e - tm_t_summary: Selecting summarize_vars changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -127,7 +122,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_summary: Deselection of summarize_vars throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary() app_driver$set_active_module_input("summarize_vars-dataset_ADSL_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_summary_by.R b/tests/testthat/test-shinytest2-tm_t_summary_by.R index baac22536..d59f8f4bb 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary_by.R +++ b/tests/testthat/test-shinytest2-tm_t_summary_by.R @@ -54,7 +54,6 @@ app_driver_tm_t_summary_by <- function() { } testthat::test_that("e2e - tm_t_summary_by: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() app_driver$expect_no_shiny_error() @@ -69,7 +68,6 @@ testthat::test_that( "e2e - tm_t_summary_by: Starts with specified label, arm_var, paramcd, by_vars, summarize_vars, useNA, numeric_stats, add_total, parallel_vars, row_groups, drop_zero_levels.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() testthat::expect_equal( @@ -111,7 +109,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_summary_by: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -128,7 +125,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_summary_by: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -144,7 +140,6 @@ testthat::test_that("e2e - tm_t_summary_by: Deselection of arm_var throws valida testthat::test_that( "e2e - tm_t_summary_by: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -161,7 +156,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_summary_by: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() app_driver$set_active_module_input("paramcd-dataset_ADLB_singleextract-filter1-vals", NULL) @@ -179,7 +173,6 @@ testthat::test_that("e2e - tm_t_summary_by: Deselection of arm_var throws valida testthat::test_that( "e2e - tm_t_summary_by: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -198,7 +191,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_summary_by: Deselection of arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -217,7 +209,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_summary_by: Selecting summarize_vars changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -234,7 +225,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_summary_by: Deselection of summarize_vars throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() app_driver$set_active_module_input("summarize_vars-dataset_ADLB_singleextract-select", NULL) diff --git a/tests/testthat/test-shinytest2-tm_t_tte.R b/tests/testthat/test-shinytest2-tm_t_tte.R index dcacb2f8b..2dee8d72f 100644 --- a/tests/testthat/test-shinytest2-tm_t_tte.R +++ b/tests/testthat/test-shinytest2-tm_t_tte.R @@ -75,7 +75,6 @@ app_driver_tm_t_tte <- function() { } testthat::test_that("e2e - tm_t_tte: Module initializes in teal without errors and produces table output.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() app_driver$expect_no_shiny_error() @@ -91,7 +90,6 @@ testthat::test_that( strata_var, time_points, pval_method_coxph, ties_coxph, conf_level_coxph, conf_level_survfit, conf_type_survfit, probs_survfit, compare_arms, combine_comp_arms.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() testthat::expect_equal( @@ -158,7 +156,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_tte: Selecting paramcd changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -175,7 +172,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_tte: Deselection of paramcd throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() app_driver$set_active_module_input("paramcd-dataset_ADTTE_singleextract-filter1-vals", NULL) @@ -193,7 +189,6 @@ testthat::test_that("e2e - tm_t_tte: Deselection of paramcd throws validation er testthat::test_that( "e2e - tm_t_tte: Selecting arm_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -210,7 +205,6 @@ testthat::test_that( ) testthat::test_that("e2e - tm_t_tte: Deselection of arm_var throws validation error.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) @@ -228,7 +222,6 @@ testthat::test_that("e2e - tm_t_tte: Deselection of arm_var throws validation er testthat::test_that( "e2e - tm_t_tte: Selecting strata_var changes the table and does not throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") @@ -247,7 +240,6 @@ testthat::test_that( testthat::test_that( "e2e - tm_t_tte: Deselection of strata_var changes the table and throw validation errors.", { - testthat::skip("chromium") skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() table_before <- app_driver$get_active_module_table_output("table-table-with-settings") From 6f3cddf1ecc38d1aed274ee2031c0aa7e1204ab1 Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Fri, 21 Nov 2025 10:15:47 +0000 Subject: [PATCH 02/37] [skip roxygen] [skip vbump] Roxygen Man Pages Auto Update --- man/tm_a_gee.Rd | 16 ++++++++++++++++ man/tm_a_mmrm.Rd | 16 ++++++++++++++++ man/tm_g_barchart_simple.Rd | 16 ++++++++++++++++ man/tm_g_ci.Rd | 16 ++++++++++++++++ man/tm_g_forest_rsp.Rd | 16 ++++++++++++++++ man/tm_g_forest_tte.Rd | 16 ++++++++++++++++ man/tm_g_ipp.Rd | 16 ++++++++++++++++ man/tm_g_km.Rd | 16 ++++++++++++++++ man/tm_g_lineplot.Rd | 16 ++++++++++++++++ man/tm_g_pp_adverse_events.Rd | 16 ++++++++++++++++ man/tm_g_pp_patient_timeline.Rd | 16 ++++++++++++++++ man/tm_g_pp_vitals.Rd | 16 ++++++++++++++++ man/tm_t_abnormality.Rd | 16 ++++++++++++++++ man/tm_t_abnormality_by_worst_grade.Rd | 16 ++++++++++++++++ man/tm_t_ancova.Rd | 16 ++++++++++++++++ man/tm_t_binary_outcome.Rd | 16 ++++++++++++++++ man/tm_t_coxreg.Rd | 16 ++++++++++++++++ man/tm_t_events.Rd | 16 ++++++++++++++++ man/tm_t_events_by_grade.Rd | 16 ++++++++++++++++ man/tm_t_events_patyear.Rd | 16 ++++++++++++++++ man/tm_t_events_summary.Rd | 16 ++++++++++++++++ man/tm_t_exposure.Rd | 16 ++++++++++++++++ man/tm_t_glm_counts.Rd | 16 ++++++++++++++++ man/tm_t_logistic.Rd | 16 ++++++++++++++++ man/tm_t_mult_events.Rd | 16 ++++++++++++++++ man/tm_t_pp_basic_info.Rd | 16 ++++++++++++++++ man/tm_t_pp_laboratory.Rd | 16 ++++++++++++++++ man/tm_t_pp_medical_history.Rd | 16 ++++++++++++++++ man/tm_t_pp_prior_medication.Rd | 16 ++++++++++++++++ man/tm_t_shift_by_arm.Rd | 16 ++++++++++++++++ man/tm_t_shift_by_arm_by_worst.Rd | 16 ++++++++++++++++ man/tm_t_shift_by_grade.Rd | 16 ++++++++++++++++ man/tm_t_smq.Rd | 16 ++++++++++++++++ man/tm_t_summary.Rd | 16 ++++++++++++++++ man/tm_t_summary_by.Rd | 16 ++++++++++++++++ man/tm_t_tte.Rd | 16 ++++++++++++++++ 36 files changed, 576 insertions(+) diff --git a/man/tm_a_gee.Rd b/man/tm_a_gee.Rd index 67111f9d3..821246f7b 100644 --- a/man/tm_a_gee.Rd +++ b/man/tm_a_gee.Rd @@ -115,6 +115,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() diff --git a/man/tm_a_mmrm.Rd b/man/tm_a_mmrm.Rd index 7375d451f..c2daa1a5d 100644 --- a/man/tm_a_mmrm.Rd +++ b/man/tm_a_mmrm.Rd @@ -156,6 +156,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ arm_ref_comp <- list( diff --git a/man/tm_g_barchart_simple.Rd b/man/tm_g_barchart_simple.Rd index 93b31f7d9..dbc854bbb 100644 --- a/man/tm_g_barchart_simple.Rd +++ b/man/tm_g_barchart_simple.Rd @@ -97,6 +97,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_ci.Rd b/man/tm_g_ci.Rd index 1630ecaaa..fa5dabad7 100644 --- a/man/tm_g_ci.Rd +++ b/man/tm_g_ci.Rd @@ -96,6 +96,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_forest_rsp.Rd b/man/tm_g_forest_rsp.Rd index 4e3499bee..3c9c23ead 100644 --- a/man/tm_g_forest_rsp.Rd +++ b/man/tm_g_forest_rsp.Rd @@ -159,6 +159,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_forest_tte.Rd b/man/tm_g_forest_tte.Rd index 6d78c639a..21a61dc66 100644 --- a/man/tm_g_forest_tte.Rd +++ b/man/tm_g_forest_tte.Rd @@ -160,6 +160,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_ipp.Rd b/man/tm_g_ipp.Rd index c556bbe3a..07796e937 100644 --- a/man/tm_g_ipp.Rd +++ b/man/tm_g_ipp.Rd @@ -139,6 +139,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_km.Rd b/man/tm_g_km.Rd index 2b2785f46..21301df4e 100644 --- a/man/tm_g_km.Rd +++ b/man/tm_g_km.Rd @@ -158,6 +158,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_lineplot.Rd b/man/tm_g_lineplot.Rd index d7ea20e5f..191db2cf8 100644 --- a/man/tm_g_lineplot.Rd +++ b/man/tm_g_lineplot.Rd @@ -152,6 +152,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_pp_adverse_events.Rd b/man/tm_g_pp_adverse_events.Rd index 80b8570e3..21229eaac 100644 --- a/man/tm_g_pp_adverse_events.Rd +++ b/man/tm_g_pp_adverse_events.Rd @@ -118,6 +118,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_pp_patient_timeline.Rd b/man/tm_g_pp_patient_timeline.Rd index 945d79e18..bad38f69a 100644 --- a/man/tm_g_pp_patient_timeline.Rd +++ b/man/tm_g_pp_patient_timeline.Rd @@ -133,6 +133,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_g_pp_vitals.Rd b/man/tm_g_pp_vitals.Rd index 550daf442..d7caa95ac 100644 --- a/man/tm_g_pp_vitals.Rd +++ b/man/tm_g_pp_vitals.Rd @@ -109,6 +109,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(nestcolor) diff --git a/man/tm_t_abnormality.Rd b/man/tm_t_abnormality.Rd index 005fc6b66..e3c03aeaf 100644 --- a/man/tm_t_abnormality.Rd +++ b/man/tm_t_abnormality.Rd @@ -139,6 +139,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() diff --git a/man/tm_t_abnormality_by_worst_grade.Rd b/man/tm_t_abnormality_by_worst_grade.Rd index d738a9bca..93ae395ed 100644 --- a/man/tm_t_abnormality_by_worst_grade.Rd +++ b/man/tm_t_abnormality_by_worst_grade.Rd @@ -129,6 +129,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(dplyr) diff --git a/man/tm_t_ancova.Rd b/man/tm_t_ancova.Rd index 79ae187a6..212103f43 100644 --- a/man/tm_t_ancova.Rd +++ b/man/tm_t_ancova.Rd @@ -133,6 +133,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_binary_outcome.Rd b/man/tm_t_binary_outcome.Rd index ec3911b8d..142245d7f 100644 --- a/man/tm_t_binary_outcome.Rd +++ b/man/tm_t_binary_outcome.Rd @@ -167,6 +167,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() diff --git a/man/tm_t_coxreg.Rd b/man/tm_t_coxreg.Rd index a8aa8e30c..f6d1de002 100644 --- a/man/tm_t_coxreg.Rd +++ b/man/tm_t_coxreg.Rd @@ -152,6 +152,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ ## First example ## ============= diff --git a/man/tm_t_events.Rd b/man/tm_t_events.Rd index 43b5627b2..abb2f0e21 100644 --- a/man/tm_t_events.Rd +++ b/man/tm_t_events.Rd @@ -134,6 +134,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_events_by_grade.Rd b/man/tm_t_events_by_grade.Rd index bd9643fd1..b5246a9ca 100644 --- a/man/tm_t_events_by_grade.Rd +++ b/man/tm_t_events_by_grade.Rd @@ -126,6 +126,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_events_patyear.Rd b/man/tm_t_events_patyear.Rd index ab18d222c..e05b0d07f 100644 --- a/man/tm_t_events_patyear.Rd +++ b/man/tm_t_events_patyear.Rd @@ -126,6 +126,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(dplyr) diff --git a/man/tm_t_events_summary.Rd b/man/tm_t_events_summary.Rd index 776f18ff7..a371d0699 100644 --- a/man/tm_t_events_summary.Rd +++ b/man/tm_t_events_summary.Rd @@ -151,6 +151,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_exposure.Rd b/man/tm_t_exposure.Rd index 6fe95c30c..79f3f6d13 100644 --- a/man/tm_t_exposure.Rd +++ b/man/tm_t_exposure.Rd @@ -137,6 +137,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(dplyr) diff --git a/man/tm_t_glm_counts.Rd b/man/tm_t_glm_counts.Rd index 62ec68251..73fb6f1c7 100644 --- a/man/tm_t_glm_counts.Rd +++ b/man/tm_t_glm_counts.Rd @@ -121,6 +121,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- within(teal_data(), { ADSL <- tern::tern_ex_adsl diff --git a/man/tm_t_logistic.Rd b/man/tm_t_logistic.Rd index 22cc0a1fe..b37361e6a 100644 --- a/man/tm_t_logistic.Rd +++ b/man/tm_t_logistic.Rd @@ -110,6 +110,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(dplyr) diff --git a/man/tm_t_mult_events.Rd b/man/tm_t_mult_events.Rd index 20ed4e286..2e4c949a3 100644 --- a/man/tm_t_mult_events.Rd +++ b/man/tm_t_mult_events.Rd @@ -122,6 +122,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_pp_basic_info.Rd b/man/tm_t_pp_basic_info.Rd index df8fbff7d..13807270e 100644 --- a/man/tm_t_pp_basic_info.Rd +++ b/man/tm_t_pp_basic_info.Rd @@ -47,6 +47,22 @@ a \code{teal_module} object. \description{ This module produces a patient profile basic info report using ADaM datasets. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_pp_laboratory.Rd b/man/tm_t_pp_laboratory.Rd index 0ff7ae8a4..89adcaf86 100644 --- a/man/tm_t_pp_laboratory.Rd +++ b/man/tm_t_pp_laboratory.Rd @@ -77,6 +77,22 @@ a \code{teal_module} object. \description{ This module produces a patient profile laboratory table using ADaM datasets. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_pp_medical_history.Rd b/man/tm_t_pp_medical_history.Rd index ef30ec98b..cd88cefdb 100644 --- a/man/tm_t_pp_medical_history.Rd +++ b/man/tm_t_pp_medical_history.Rd @@ -85,6 +85,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_pp_prior_medication.Rd b/man/tm_t_pp_prior_medication.Rd index 961343d40..f92b8b48c 100644 --- a/man/tm_t_pp_prior_medication.Rd +++ b/man/tm_t_pp_prior_medication.Rd @@ -62,6 +62,22 @@ a \code{teal_module} object. \description{ This module produces a patient profile prior medication report using ADaM datasets. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ library(dplyr) data <- teal_data() diff --git a/man/tm_t_shift_by_arm.Rd b/man/tm_t_shift_by_arm.Rd index a6e8807a0..31be427c4 100644 --- a/man/tm_t_shift_by_arm.Rd +++ b/man/tm_t_shift_by_arm.Rd @@ -128,6 +128,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_shift_by_arm_by_worst.Rd b/man/tm_t_shift_by_arm_by_worst.Rd index af616c8fa..241138674 100644 --- a/man/tm_t_shift_by_arm_by_worst.Rd +++ b/man/tm_t_shift_by_arm_by_worst.Rd @@ -129,6 +129,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_shift_by_grade.Rd b/man/tm_t_shift_by_grade.Rd index 5e8375668..ac64de94d 100644 --- a/man/tm_t_shift_by_grade.Rd +++ b/man/tm_t_shift_by_grade.Rd @@ -143,6 +143,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_smq.Rd b/man/tm_t_smq.Rd index 02e0ee63a..e09db9c75 100644 --- a/man/tm_t_smq.Rd +++ b/man/tm_t_smq.Rd @@ -128,6 +128,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_summary.Rd b/man/tm_t_summary.Rd index 1c96b0008..0d0f95fcc 100644 --- a/man/tm_t_summary.Rd +++ b/man/tm_t_summary.Rd @@ -124,6 +124,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ # Preparation of the test case - use `EOSDY` and `DCSREAS` variables to demonstrate missing data. data <- teal_data() diff --git a/man/tm_t_summary_by.Rd b/man/tm_t_summary_by.Rd index 7339fcb6e..132ce7ab8 100644 --- a/man/tm_t_summary_by.Rd +++ b/man/tm_t_summary_by.Rd @@ -144,6 +144,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { diff --git a/man/tm_t_tte.Rd b/man/tm_t_tte.Rd index 83bf2e9b4..d417b006e 100644 --- a/man/tm_t_tte.Rd +++ b/man/tm_t_tte.Rd @@ -159,6 +159,22 @@ To learn more please refer to the vignette \code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation. } +\section{Reporting}{ + + + +This module returns an object of class \code{teal_module}, that contains a \code{server} function. +Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that +the reporting functionality will be turned on automatically by the \code{teal} framework. + +For more information on reporting in \code{teal}, see the vignettes: +\itemize{ +\item \code{vignette("reportable-shiny-application", package = "teal.reporter")} +\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")} +} + +} + \examples{ data <- teal_data() data <- within(data, { From 56fb428972d9a1d94dd1c591d2c8e68a9c08447b Mon Sep 17 00:00:00 2001 From: m7pr Date: Fri, 21 Nov 2025 13:33:44 +0100 Subject: [PATCH 03/37] fix old app_driver$active_module_element_text tests --- inst/WORDLIST | 1 + tests/testthat/test-shinytest2-tm_a_gee.R | 14 +++++----- tests/testthat/test-shinytest2-tm_a_mmrm.R | 2 +- .../test-shinytest2-tm_g_forest_rsp.R | 12 ++++----- tests/testthat/test-shinytest2-tm_g_km.R | 26 +++++++++---------- .../test-shinytest2-tm_t_abnormality.R | 4 +-- ...inytest2-tm_t_abnormality_by_worst_grade.R | 6 ++--- tests/testthat/test-shinytest2-tm_t_ancova.R | 12 ++++----- .../test-shinytest2-tm_t_binary_outcome.R | 6 ++--- tests/testthat/test-shinytest2-tm_t_coxreg.R | 6 ++--- tests/testthat/test-shinytest2-tm_t_events.R | 2 +- .../test-shinytest2-tm_t_events_by_grade.R | 4 +-- .../test-shinytest2-tm_t_events_patyear.R | 6 ++--- .../test-shinytest2-tm_t_events_summary.R | 2 +- .../testthat/test-shinytest2-tm_t_exposure.R | 12 ++++----- .../testthat/test-shinytest2-tm_t_logistic.R | 8 +++--- .../test-shinytest2-tm_t_mult_events.R | 4 +-- .../test-shinytest2-tm_t_pp_basic_info.R | 4 +-- .../test-shinytest2-tm_t_pp_laboratory.R | 18 ++++++------- .../test-shinytest2-tm_t_pp_medical_history.R | 8 +++--- ...test-shinytest2-tm_t_pp_prior_medication.R | 10 +++---- .../test-shinytest2-tm_t_shift_by_arm.R | 10 +++---- ...st-shinytest2-tm_t_shift_by_arm_by_worst.R | 16 ++++++------ .../test-shinytest2-tm_t_shift_by_grade.R | 10 +++---- tests/testthat/test-shinytest2-tm_t_smq.R | 6 ++--- tests/testthat/test-shinytest2-tm_t_summary.R | 6 ++--- .../test-shinytest2-tm_t_summary_by.R | 10 +++---- tests/testthat/test-shinytest2-tm_t_tte.R | 8 +++--- 28 files changed, 117 insertions(+), 116 deletions(-) diff --git a/inst/WORDLIST b/inst/WORDLIST index 0c3e12504..acdbfa402 100644 --- a/inst/WORDLIST +++ b/inst/WORDLIST @@ -32,3 +32,4 @@ responder responders univariable unstratified +reportable diff --git a/tests/testthat/test-shinytest2-tm_a_gee.R b/tests/testthat/test-shinytest2-tm_a_gee.R index 09f39138c..1b4f246ea 100644 --- a/tests/testthat/test-shinytest2-tm_a_gee.R +++ b/tests/testthat/test-shinytest2-tm_a_gee.R @@ -98,7 +98,7 @@ testthat::test_that( testthat::expect_equal(app_driver$get_active_module_input("cor_struct"), "unstructured") - radio_buttons <- app_driver$namespaces(TRUE)$module("output_table") + radio_buttons <- app_driver$get_text(app_driver$namespaces(TRUE)$module("output_table")) testthat::expect_match( radio_buttons, "Output Type.*LS means.*Covariance.*Coefficients", @@ -133,7 +133,7 @@ testthat::test_that("e2e - tm_a_gee: Deselection of id_var throws validation err testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("id_var-dataset_ADQS_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("id_var-dataset_ADQS_singleextract-select_input > div > span")), "A Subject identifier is required" ) app_driver$stop() @@ -162,7 +162,7 @@ testthat::test_that("e2e - tm_a_gee: Deselection of arm_var throws validation er testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input > div > span")), "A treatment variable is required" ) app_driver$stop() @@ -194,7 +194,7 @@ testthat::test_that("e2e - tm_a_gee: Deselection of visit_var throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("visit_var-dataset_ADQS_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("visit_var-dataset_ADQS_singleextract-select_input > div > span")), "A visit variable is required" ) app_driver$stop() @@ -222,7 +222,7 @@ testthat::test_that("e2e - tm_a_gee: Deselection of paramcd throws validation er testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("paramcd-dataset_ADQS_singleextract-filter1-vals_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("paramcd-dataset_ADQS_singleextract-filter1-vals_input > div > span")), "An endpoint is required" ) app_driver$stop() @@ -266,7 +266,7 @@ testthat::test_that("e2e - tm_a_gee: Selection of conf_level out of [0,1] range testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("conf_level_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("conf_level_input > div > span")), "Confidence level must be between 0 and 1" ) app_driver$stop() @@ -279,7 +279,7 @@ testthat::test_that("e2e - tm_a_gee: Deselection of conf_level throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("conf_level_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("conf_level_input > div > span")), "Please choose a confidence level" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_a_mmrm.R b/tests/testthat/test-shinytest2-tm_a_mmrm.R index 3fce15ae3..178a26609 100644 --- a/tests/testthat/test-shinytest2-tm_a_mmrm.R +++ b/tests/testthat/test-shinytest2-tm_a_mmrm.R @@ -87,7 +87,7 @@ testthat::test_that( app_driver$expect_no_shiny_error() app_driver$expect_no_validation_error() - null_text <- app_driver$namespaces(TRUE)$module("null_input_msg") + null_text <- app_driver$get_text(app_driver$namespaces(TRUE)$module("null_input_msg")) testthat::expect_match(null_text, "Please first specify 'Model Settings' and press 'Fit Model'") diff --git a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R index a8698a3ea..19c298ae5 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R @@ -173,7 +173,7 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting arm_var throws validatio app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot_out_main"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")), "Treatment variable must be selected" ) app_driver$stop() @@ -195,7 +195,7 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting paramcd throws validatio app_driver$set_active_module_input("paramcd-dataset_ADRS_singleextract-filter1-vals", NULL) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot_out_main"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")), "Please select Endpoint filter" ) app_driver$stop() @@ -217,7 +217,7 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting responders throws valida app_driver$set_active_module_input("responders", NULL) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot_out_main"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")), "`Responders` field is empty" ) app_driver$stop() @@ -239,7 +239,7 @@ testthat::test_that("e2e - tm_g_forest_rsp: Selecting a non-factors column in su app_driver$set_active_module_input("subgroup_var-dataset_ADSL_singleextract-select", c("SEX", "AGE")) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot_out_main"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")), "Not all subgroup variables are factors" ) app_driver$stop() @@ -291,13 +291,13 @@ testthat::test_that("e2e - tm_g_forest_rsp: Deselecting conf_level or selecting app_driver$set_active_module_input("conf_level", NULL) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot_out_main"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")), "Please choose a confidence level between 0 and 1" ) app_driver$set_active_module_input("conf_level", 2) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot_out_main"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")), "Please choose a confidence level between 0 and 1" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_g_km.R b/tests/testthat/test-shinytest2-tm_g_km.R index 54b2d4dac..620f780b3 100644 --- a/tests/testthat/test-shinytest2-tm_g_km.R +++ b/tests/testthat/test-shinytest2-tm_g_km.R @@ -191,13 +191,13 @@ testthat::test_that("e2e - tm_g_km: Deselecting {paramcd} throws validation erro app_driver$set_active_module_input("paramcd-dataset_ADTTE_singleextract-filter1-vals", character(0)) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADTTE_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "An endpoint is required" ) testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot-with-settings"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot-with-settings")), "An endpoint is required" ) app_driver$stop() @@ -209,9 +209,9 @@ testthat::test_that("e2e - tm_g_km: Deselecting {arm_var} throws validation erro app_driver$set_active_module_input(ns_des_input("arm_var", "ADSL", "select"), character(0)) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" - ), + )), "Treatment variable must be selected" ) app_driver$stop() @@ -264,12 +264,12 @@ testthat::test_that("e2e - tm_g_km: Starts with specified collapsed comparison s testthat::expect_equal(app_driver$get_active_module_input("pval_method_coxph"), "log-rank") testthat::expect_equal( - app_driver$namespaces(TRUE)$module("pval_method_coxph-label"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("pval_method_coxph-label")), "p-value method for Coxph (Hazard Ratio)" ) testthat::expect_equal(app_driver$get_active_module_input("ties_coxph"), "exact") testthat::expect_equal( - app_driver$namespaces(TRUE)$module("ties_coxph-label"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("ties_coxph-label")), "Ties for Coxph (Hazard Ratio)" ) @@ -338,13 +338,13 @@ testthat::test_that("e2e - tm_g_km: Starts with specified collapsed additional p testthat::expect_equal(app_driver$get_active_module_input("xlab"), "Time") testthat::expect_equal( - app_driver$namespaces(TRUE)$module("xticks-label"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("xticks-label")), "Specify break intervals for x-axis e.g. 0 ; 500" ) - testthat::expect_match(app_driver$namespaces(TRUE)$module("yval-label"), "Value on y-axis", fixed = FALSE) - testthat::expect_equal(app_driver$namespaces(TRUE)$module("font_size-label"), "Table Font Size") - testthat::expect_equal(app_driver$namespaces(TRUE)$module("rel_height_plot-label"), "Relative Height of Plot (%)") - testthat::expect_equal(app_driver$namespaces(TRUE)$module("xlab-label"), "X-axis label") + testthat::expect_match(app_driver$get_text(app_driver$namespaces(TRUE)$module("yval-label")), "Value on y-axis", fixed = FALSE) + testthat::expect_equal(app_driver$get_text(app_driver$namespaces(TRUE)$module("font_size-label")), "Table Font Size") + testthat::expect_equal(app_driver$get_text(app_driver$namespaces(TRUE)$module("rel_height_plot-label")), "Relative Height of Plot (%)") + testthat::expect_equal(app_driver$get_text(app_driver$namespaces(TRUE)$module("xlab-label")), "X-axis label") app_driver$stop() }) @@ -382,7 +382,7 @@ testthat::test_that("e2e - tm_g_km: Deselecting {conf_level} throws validation e app_driver$set_active_module_input("conf_level", -1) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module("myplot-plot-with-settings"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("myplot-plot-with-settings")), "Confidence level must be between 0 and 1." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality.R b/tests/testthat/test-shinytest2-tm_t_abnormality.R index 5e850c06a..7543c10f8 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality.R @@ -133,7 +133,7 @@ testthat::test_that("e2e - arm_var: Deselection of arm_var throws validation err testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select a treatment variable." ) app_driver$stop() @@ -164,7 +164,7 @@ testthat::test_that("e2e - tm_t_abnormality: Deselection of by_vars throws valid testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("by_vars-dataset_ADLB_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("by_vars-dataset_ADLB_singleextract-select_input .shiny-validation-message")), "Please select a Row By Variable." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R index 6fa89a13c..0a5e0286d 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R @@ -158,7 +158,7 @@ testthat::test_that("e2e - tm_t_abnormality_by_worst_grade: Deselection of arm_v testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select a treatment variable." ) app_driver$stop() @@ -171,9 +171,9 @@ testthat::test_that("e2e - tm_t_abnormality_by_worst_grade: Deselection of param testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADLB_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "Please select at least one Laboratory parameter." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_ancova.R b/tests/testthat/test-shinytest2-tm_t_ancova.R index b0bb54384..1f966325d 100644 --- a/tests/testthat/test-shinytest2-tm_t_ancova.R +++ b/tests/testthat/test-shinytest2-tm_t_ancova.R @@ -154,9 +154,9 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of avisit throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "avisit-dataset_ADQS_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "`Analysis Visit` field cannot be empty." ) app_driver$stop() @@ -187,9 +187,9 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of paramcd throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADQS_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "`Select Endpoint` is not selected." ) app_driver$stop() @@ -220,7 +220,7 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of aval_var throws validatio testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("aval_var-dataset_ADQS_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aval_var-dataset_ADQS_singleextract-select_input .shiny-validation-message")), "Analysis variable cannot be empty." ) app_driver$stop() @@ -251,7 +251,7 @@ testthat::test_that("e2e - tm_t_ancova: Deselection of arm_var throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Treatment variable must be selected" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R index d6fe91634..d97c9d206 100644 --- a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R +++ b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R @@ -192,9 +192,9 @@ testthat::test_that("e2e - tm_t_binary_outcome: Deselection of paramcd throws va testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADRS_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "Please select a filter." ) app_driver$stop() @@ -256,7 +256,7 @@ testthat::test_that("e2e - tm_t_binary_outcome: Deselection of arm_var throws va testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Treatment variable must be selected" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_coxreg.R b/tests/testthat/test-shinytest2-tm_t_coxreg.R index 1816c5bf3..a34917642 100644 --- a/tests/testthat/test-shinytest2-tm_t_coxreg.R +++ b/tests/testthat/test-shinytest2-tm_t_coxreg.R @@ -148,9 +148,9 @@ testthat::test_that("e2e - tm_t_coxreg: Deselection of paramcd throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADTTE_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "An endpoint is required" ) app_driver$stop() @@ -181,7 +181,7 @@ testthat::test_that("e2e - tm_t_coxreg: Deselection of arm_var throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Treatment variable must be selected" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_events.R b/tests/testthat/test-shinytest2-tm_t_events.R index 9e5d77450..db1e1f8a4 100644 --- a/tests/testthat/test-shinytest2-tm_t_events.R +++ b/tests/testthat/test-shinytest2-tm_t_events.R @@ -117,7 +117,7 @@ testthat::test_that("e2e - tm_t_events: Deselection of arm_var throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select 1 or 2 treatment variable values" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R index 379d311eb..b173daef4 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R @@ -130,7 +130,7 @@ testthat::test_that("e2e - tm_t_events_by_grade: Deselection of arm_var throws v testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "A treatment variable is required" ) app_driver$stop() @@ -233,7 +233,7 @@ testthat::test_that("e2e - tm_t_events_by_grade: Deselection of grade throws val testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("grade-dataset_ADAE_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("grade-dataset_ADAE_singleextract-select_input .shiny-validation-message")), "An event grade is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_events_patyear.R b/tests/testthat/test-shinytest2-tm_t_events_patyear.R index c2627c0d3..b8304533f 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_patyear.R +++ b/tests/testthat/test-shinytest2-tm_t_events_patyear.R @@ -133,9 +133,9 @@ testthat::test_that("e2e - tm_t_events_patyear: Deselection of paramcd throws va ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADAETTE_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "A Event Type Parameter is required" ) app_driver$stop() @@ -169,7 +169,7 @@ testthat::test_that("e2e - tm_t_events_patyear: Deselection of arm_var throws va ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select exactly 1 or 2 treatment variables" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_events_summary.R b/tests/testthat/test-shinytest2-tm_t_events_summary.R index d1c713e27..be833026b 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_events_summary.R @@ -159,7 +159,7 @@ testthat::test_that("e2e - tm_t_events_summary: Deselection of arm_var throws va testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select exactly 1 or 2 treatment variables" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_exposure.R b/tests/testthat/test-shinytest2-tm_t_exposure.R index 03f05e8e3..2183f01c9 100644 --- a/tests/testthat/test-shinytest2-tm_t_exposure.R +++ b/tests/testthat/test-shinytest2-tm_t_exposure.R @@ -138,9 +138,9 @@ testthat::test_that("e2e - tm_t_exposure: Deselection of paramcd throws validati testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADEX_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "Please select a parameter value." ) app_driver$stop() @@ -171,9 +171,9 @@ testthat::test_that("e2e - tm_t_exposure: Deselection of parcat throws validatio testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "parcat-dataset_ADEX_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "Please select a parameter category value." ) app_driver$stop() @@ -240,9 +240,9 @@ testthat::test_that("e2e - tm_t_exposure: Deselection of row_by_var throws valid testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "row_by_var-dataset_ADEX_singleextract-select_input .shiny-validation-message" - ), + )), "Please select a row by variable." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_logistic.R b/tests/testthat/test-shinytest2-tm_t_logistic.R index c5f095a68..ebe80c914 100644 --- a/tests/testthat/test-shinytest2-tm_t_logistic.R +++ b/tests/testthat/test-shinytest2-tm_t_logistic.R @@ -131,9 +131,9 @@ testthat::test_that("e2e - tm_t_logistic: Deselection of paramcd throws validati testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADRS_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "`Select Endpoint` field is empty" ) app_driver$stop() @@ -164,7 +164,7 @@ testthat::test_that("e2e - tm_t_logistic: Deselection of arm_var throws validati testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Treatment variable must be selected" ) app_driver$stop() @@ -195,7 +195,7 @@ testthat::test_that("e2e - tm_t_logistic: Deselection of cov_var throws validati testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("cov_var-dataset_ADRS_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("cov_var-dataset_ADRS_singleextract-select_input .shiny-validation-message")), "`Covariates` field is empty" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_mult_events.R b/tests/testthat/test-shinytest2-tm_t_mult_events.R index 86af72a8e..28ffda557 100644 --- a/tests/testthat/test-shinytest2-tm_t_mult_events.R +++ b/tests/testthat/test-shinytest2-tm_t_mult_events.R @@ -102,7 +102,7 @@ testthat::test_that("e2e - tm_t_mult_events: Deselection of arm_var throws valid testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select a treatment variable" ) app_driver$stop() @@ -150,7 +150,7 @@ testthat::test_that("e2e - tm_t_mult_events: Deselection of llt throws validatio app_driver$set_active_module_input("llt-dataset_ADCM_singleextract-select", NULL) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("llt-dataset_ADCM_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("llt-dataset_ADCM_singleextract-select_input .shiny-validation-message")), "Please select a \"LOW LEVEL TERM\" variable" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R index c1ab0d30c..d61f8b191 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R @@ -84,7 +84,7 @@ testthat::test_that( ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message")), "Please select a patient" ) app_driver$stop() @@ -124,7 +124,7 @@ testthat::test_that("e2e - tm_t_pp_basic_info: Deselection of cov_var throws val ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("vars-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("vars-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select basic info variables" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R index ecac29e4b..d6402df1a 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R @@ -133,7 +133,7 @@ testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of patient_id throws ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message")), "Please select a patient" ) app_driver$stop() @@ -170,7 +170,7 @@ testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of paramcd throws val ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("paramcd-dataset_ADLB_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("paramcd-dataset_ADLB_singleextract-select_input .shiny-validation-message")), "Please select PARAMCD variable." ) app_driver$stop() @@ -209,7 +209,7 @@ testthat::test_that( ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("param-dataset_ADLB_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("param-dataset_ADLB_singleextract-select_input .shiny-validation-message")), "Please select PARAM variable." ) app_driver$stop() @@ -247,9 +247,9 @@ testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of timepoints throws ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "timepoints-dataset_ADLB_singleextract-select_input .shiny-validation-message" - ), + )), "Please select timepoints variable." ) app_driver$stop() @@ -286,9 +286,9 @@ testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of avalu throws valid ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "avalu_var-dataset_ADLB_singleextract-select_input .shiny-validation-message" - ), + )), "Please select AVALU variable." ) app_driver$stop() @@ -325,7 +325,7 @@ testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of aval_var throws va ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("aval_var-dataset_ADLB_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aval_var-dataset_ADLB_singleextract-select_input .shiny-validation-message")), "Please select AVAL variable." ) app_driver$stop() @@ -362,7 +362,7 @@ testthat::test_that("e2e - tm_t_pp_laboratory: Deselection of arind throws valid ) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("anrind-dataset_ADLB_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("anrind-dataset_ADLB_singleextract-select_input .shiny-validation-message")), "Please select ANRIND variable." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R index 85c8446bd..67c808536 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R @@ -102,7 +102,7 @@ testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of patient_id th testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message")), "Please select a patient" ) app_driver$stop() @@ -133,7 +133,7 @@ testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhterm throws testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("mhterm-dataset_ADMH_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("mhterm-dataset_ADMH_singleextract-select_input .shiny-validation-message")), "Please select MHTERM variable." ) app_driver$stop() @@ -164,7 +164,7 @@ testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhbodsys thro testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("mhbodsys-dataset_ADMH_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("mhbodsys-dataset_ADMH_singleextract-select_input .shiny-validation-message")), "Please select MHBODSYS variable." ) app_driver$stop() @@ -195,7 +195,7 @@ testthat::test_that("e2e - tm_t_pp_medical_history: Deselection of mhdistat thro testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("mhdistat-dataset_ADMH_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("mhdistat-dataset_ADMH_singleextract-select_input .shiny-validation-message")), "Please select MHDISTAT variable." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R index 090ba7c45..de82cd552 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R @@ -114,7 +114,7 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of patient_id t app_driver$set_active_module_input("patient_id", NULL) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("patient_id_input .shiny-validation-message")), "Please select patient id" ) app_driver$stop() @@ -144,7 +144,7 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmdecod thro app_driver$set_active_module_input("cmdecod-dataset_ADCM_singleextract-select", NULL) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("cmdecod-dataset_ADCM_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("cmdecod-dataset_ADCM_singleextract-select_input .shiny-validation-message")), "A medication decoding variable is required" ) app_driver$stop() @@ -174,7 +174,7 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of atirel throw app_driver$set_active_module_input("atirel-dataset_ADCM_singleextract-select", NULL) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("atirel-dataset_ADCM_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("atirel-dataset_ADCM_singleextract-select_input .shiny-validation-message")), "An ATIREL variable is required" ) app_driver$stop() @@ -204,7 +204,7 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmindc throw app_driver$set_active_module_input("cmindc-dataset_ADCM_singleextract-select", NULL) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("cmindc-dataset_ADCM_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("cmindc-dataset_ADCM_singleextract-select_input .shiny-validation-message")), "A CMINDC variable is required" ) app_driver$stop() @@ -234,7 +234,7 @@ testthat::test_that("e2e - tm_t_pp_prior_medication: Deselection of cmstdy throw app_driver$set_active_module_input("cmstdy-dataset_ADCM_singleextract-select", NULL) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("cmstdy-dataset_ADCM_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("cmstdy-dataset_ADCM_singleextract-select_input .shiny-validation-message")), "A CMSTDY variable is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R index d0e197485..308581208 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R @@ -121,7 +121,7 @@ testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of arm_var throws vali testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "A treatment variable is required" ) app_driver$stop() @@ -152,9 +152,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of paramcd throws vali testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADEG_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "An endpoint is required" ) app_driver$stop() @@ -185,9 +185,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of visit_var throws va testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "visit_var-dataset_ADEG_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "A visit is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R index 35c83feaf..0637aafbe 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R @@ -134,7 +134,7 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of arm_var th testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "A treatment variable is required" ) app_driver$stop() @@ -165,9 +165,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of paramcd th testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADEG_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "An endpoint is required" ) app_driver$stop() @@ -199,9 +199,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of worst_flag testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "worst_flag_var-dataset_ADEG_singleextract-select_input .shiny-validation-message" - ), + )), "A worst flag variable is required" ) app_driver$stop() @@ -233,7 +233,7 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of aval_var t testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("aval_var-dataset_ADEG_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aval_var-dataset_ADEG_singleextract-select_input .shiny-validation-message")), "An analysis range indicator required" ) app_driver$stop() @@ -265,9 +265,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of baseline_v testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "baseline_var-dataset_ADEG_singleextract-select_input .shiny-validation-message" - ), + )), "A baseline reference range indicator is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R index 3b77b7027..736f49d73 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R @@ -144,7 +144,7 @@ testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of arm_var throws va testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "A treatment variable is required" ) app_driver$stop() @@ -175,9 +175,9 @@ testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of paramcd throws va testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADLB_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "A laboratory parameter is required" ) app_driver$stop() @@ -208,9 +208,9 @@ testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of worst_flag throws testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "worst_flag_var-dataset_ADLB_singleextract-select_input .shiny-validation-message" - ), + )), "A worst treatment flag is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_smq.R b/tests/testthat/test-shinytest2-tm_t_smq.R index 4a3b407a0..013e6cac4 100644 --- a/tests/testthat/test-shinytest2-tm_t_smq.R +++ b/tests/testthat/test-shinytest2-tm_t_smq.R @@ -122,7 +122,7 @@ testthat::test_that("e2e - tm_t_smq: Deselection of arm_var throws validation er testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "At least one treatment variable is required" ) app_driver$stop() @@ -150,7 +150,7 @@ testthat::test_that("e2e - tm_t_smq: Deselection of paramcd throws validation er testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("llt-dataset_ADAE_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("llt-dataset_ADAE_singleextract-select_input .shiny-validation-message")), "A low level term variable is required" ) app_driver$stop() @@ -181,7 +181,7 @@ testthat::test_that("e2e - tm_t_smq: Deselection of worst_flag throws validation testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("baskets-dataset_ADAE_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("baskets-dataset_ADAE_singleextract-select_input .shiny-validation-message")), "At least one basket is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_summary.R b/tests/testthat/test-shinytest2-tm_t_summary.R index 1fb2bd60c..315a42bb9 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_summary.R @@ -97,7 +97,7 @@ testthat::test_that("e2e - tm_t_summary: Deselection of arm_var throws validatio testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select 1 or 2 column variables" ) app_driver$stop() @@ -128,9 +128,9 @@ testthat::test_that("e2e - tm_t_summary: Deselection of summarize_vars throws va testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "summarize_vars-dataset_ADSL_singleextract-select_input .shiny-validation-message" - ), + )), "Please select a summarize variable" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_summary_by.R b/tests/testthat/test-shinytest2-tm_t_summary_by.R index d59f8f4bb..e6903bd03 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary_by.R +++ b/tests/testthat/test-shinytest2-tm_t_summary_by.R @@ -131,7 +131,7 @@ testthat::test_that("e2e - tm_t_summary_by: Deselection of arm_var throws valida testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), "Please select 1 or 2 column variables" ) app_driver$stop() @@ -162,9 +162,9 @@ testthat::test_that("e2e - tm_t_summary_by: Deselection of arm_var throws valida testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADLB_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "Please select a filter." ) app_driver$stop() @@ -231,9 +231,9 @@ testthat::test_that("e2e - tm_t_summary_by: Deselection of summarize_vars throws testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "summarize_vars-dataset_ADLB_singleextract-select_input .shiny-validation-message" - ), + )), "Please select a summarize variable." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_tte.R b/tests/testthat/test-shinytest2-tm_t_tte.R index 2dee8d72f..22cba4856 100644 --- a/tests/testthat/test-shinytest2-tm_t_tte.R +++ b/tests/testthat/test-shinytest2-tm_t_tte.R @@ -178,9 +178,9 @@ testthat::test_that("e2e - tm_t_tte: Deselection of paramcd throws validation er testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "paramcd-dataset_ADTTE_singleextract-filter1-vals_input .shiny-validation-message" - ), + )), "An endpoint is required" ) app_driver$stop() @@ -211,9 +211,9 @@ testthat::test_that("e2e - tm_t_tte: Deselection of arm_var throws validation er testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" - ), + )), "Treatment variable must be selected" ) app_driver$stop() From 22de26a083efaa7ad357f078283ab20e3adceb9e Mon Sep 17 00:00:00 2001 From: m7pr Date: Fri, 21 Nov 2025 14:03:57 +0100 Subject: [PATCH 04/37] added more get_text validation --- .../testthat/test-shinytest2-tm_g_barchart_simple.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R index 74cc4c6fd..5b0d44a29 100644 --- a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R +++ b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R @@ -208,12 +208,12 @@ testthat::test_that("e2e - tm_g_barchart_simple: Deselection of 'x' throws valid app_driver$set_active_module_input(ns_des_input("x", "ADSL", "select"), character(0L)) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input("x", "ADSL", "select_input") ) - ), + )), "^Please select an x-variable$" ) app_driver$stop() @@ -285,22 +285,22 @@ for (input_id in c("fill", "x_facet", "y_facet")) { app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input("x", "ADSL", "select_input") ) - ), + )), "^Duplicated value: ACTARM$" ) testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input(input_id, "ADSL", "select_input") ) - ), + )), "^Duplicated value: ACTARM$" ) app_driver$stop() From 362d35ce7849baca6aef2f3740ab50982073c1ac Mon Sep 17 00:00:00 2001 From: m7pr Date: Fri, 21 Nov 2025 14:25:33 +0100 Subject: [PATCH 05/37] more places --- tests/testthat/test-shinytest2-tm_a_mmrm.R | 24 +++++++++---------- tests/testthat/test-shinytest2-tm_g_ci.R | 8 +++---- .../test-shinytest2-tm_g_forest_tte.R | 12 +++++----- tests/testthat/test-shinytest2-tm_g_ipp.R | 8 +++---- .../testthat/test-shinytest2-tm_g_lineplot.R | 12 +++++----- ...test-shinytest2-tm_g_pp_patient_timeline.R | 18 +++++++------- .../testthat/test-shinytest2-tm_g_pp_vitals.R | 10 ++++---- 7 files changed, 46 insertions(+), 46 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_a_mmrm.R b/tests/testthat/test-shinytest2-tm_a_mmrm.R index 178a26609..3343cadaf 100644 --- a/tests/testthat/test-shinytest2-tm_a_mmrm.R +++ b/tests/testthat/test-shinytest2-tm_a_mmrm.R @@ -273,12 +273,12 @@ for (func in output_functions) { } testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input("aval_var", "ADQS", "select_input") ) - ), + )), "Analysis Variable' field is not selected" ) app_driver$expect_validation_error() @@ -308,12 +308,12 @@ for (func in output_functions) { } testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input("paramcd", "ADQS", "filter1-vals_input") ) - ), + )), "Select Endpoint' field is not selected" ) app_driver$expect_validation_error() @@ -343,12 +343,12 @@ for (func in output_functions) { } testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input("visit_var", "ADQS", "select_input") ) - ), + )), "Visit Variable' field is not selected" ) app_driver$expect_validation_error() @@ -378,12 +378,12 @@ for (func in output_functions) { } testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input("arm_var", "ADSL", "select_input") ) - ), + )), "Treatment variable must be selected" ) app_driver$expect_validation_error() @@ -413,12 +413,12 @@ for (func in output_functions) { } testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", ns_des_input("id_var", "ADQS", "select_input") ) - ), + )), "Subject Identifier' field is not selected" ) app_driver$expect_validation_error() @@ -448,12 +448,12 @@ for (func in output_functions) { } testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s .shiny-validation-message", "conf_level_input" ) - ), + )), "Confidence Level' field is not selected" ) app_driver$expect_validation_error() diff --git a/tests/testthat/test-shinytest2-tm_g_ci.R b/tests/testthat/test-shinytest2-tm_g_ci.R index af3ad79ab..1a2d7a447 100644 --- a/tests/testthat/test-shinytest2-tm_g_ci.R +++ b/tests/testthat/test-shinytest2-tm_g_ci.R @@ -161,7 +161,7 @@ testthat::test_that("e2e - tm_g_ci: Deselecting x_var column throws validation e testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module("x_var-dataset_ADSL_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("x_var-dataset_ADSL_singleextract-select_input > div > span")), "Select a treatment (x axis)" ) app_driver$stop() @@ -188,7 +188,7 @@ testthat::test_that("e2e - tm_g_ci: Deselecting y_var column throws validation e app_driver$set_active_module_input("y_var-dataset_ADLB_singleextract-select", character(0)) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("y_var-dataset_ADLB_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("y_var-dataset_ADLB_singleextract-select_input > div > span")), "Select an analysis value (y axis)" ) app_driver$expect_validation_error() @@ -219,7 +219,7 @@ testthat::test_that("e2e - tm_g_ci: Deselecting PARAMCD filter value throws vali app_driver$set_active_module_input("y_var-dataset_ADLB_singleextract-filter1-vals", character(0)) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("y_var-dataset_ADLB_singleextract-filter1-vals_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("y_var-dataset_ADLB_singleextract-filter1-vals_input > div > span")), "Please select the filters." ) app_driver$expect_validation_error() @@ -242,7 +242,7 @@ testthat::test_that("e2e - tm_g_ci: Deselecting AVISIT filter value throws valid app_driver$set_active_module_input("y_var-dataset_ADLB_singleextract-filter2-vals", character(0)) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("y_var-dataset_ADLB_singleextract-filter2-vals_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("y_var-dataset_ADLB_singleextract-filter2-vals_input > div > span")), "Please select the filters." ) app_driver$expect_validation_error() diff --git a/tests/testthat/test-shinytest2-tm_g_forest_tte.R b/tests/testthat/test-shinytest2-tm_g_forest_tte.R index d06d4f074..49257ddd6 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_tte.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_tte.R @@ -166,12 +166,12 @@ testthat::test_that("e2e - tm_g_forest_tte: Deselection of paramcd filter throws app_driver$set_active_module_input(input_id, character(0L)) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s_input .shiny-validation-message", input_id ) - ), + )), "Please select Endpoint filter." ) app_driver$stop() @@ -197,12 +197,12 @@ testthat::test_that("e2e - tm_g_forest_tte: Deselection of paramcd var throws va app_driver$set_active_module_input(input_id, character(0L)) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s_input .shiny-validation-message", input_id ) - ), + )), "Treatment variable must be selected" ) app_driver$stop() @@ -219,9 +219,9 @@ testthat::test_that( testthat::expect_false(identical(plot_before, app_driver$get_active_module_plot_output("myplot"))) app_driver$expect_validation_error() testthat::expect_match( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf("%s_input .shiny-validation-message", input_id) - ), + )), "Please choose a confidence level" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_g_ipp.R b/tests/testthat/test-shinytest2-tm_g_ipp.R index a8163c3a1..c02931a6a 100644 --- a/tests/testthat/test-shinytest2-tm_g_ipp.R +++ b/tests/testthat/test-shinytest2-tm_g_ipp.R @@ -152,7 +152,7 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting arm_var column throws validatio app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-filter1-vals", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-filter1-vals_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-filter1-vals_input > div > span")), "Please select Arm filter." ) app_driver$expect_validation_error() @@ -180,7 +180,7 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting paramcd throws validation error app_driver$set_active_module_input("paramcd-dataset_ADLB_singleextract-filter1-vals", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("paramcd-dataset_ADLB_singleextract-filter1-vals_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("paramcd-dataset_ADLB_singleextract-filter1-vals_input > div > span")), "Please select Parameter filter." ) app_driver$expect_validation_error() @@ -208,7 +208,7 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting visit_var throws validation err app_driver$set_active_module_input("visit_var-dataset_ADLB_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("visit_var-dataset_ADLB_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("visit_var-dataset_ADLB_singleextract-select_input > div > span")), "A Timepoint Variable must be selected" ) app_driver$expect_validation_error() @@ -236,7 +236,7 @@ testthat::test_that("e2e - tm_g_ipp: Deselecting aval_var throws validation erro app_driver$set_active_module_input("aval_var-dataset_ADLB_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("aval_var-dataset_ADLB_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aval_var-dataset_ADLB_singleextract-select_input > div > span")), "A Parameter values over Time must be selected" ) app_driver$expect_validation_error() diff --git a/tests/testthat/test-shinytest2-tm_g_lineplot.R b/tests/testthat/test-shinytest2-tm_g_lineplot.R index 0249b9323..26ce175cb 100644 --- a/tests/testthat/test-shinytest2-tm_g_lineplot.R +++ b/tests/testthat/test-shinytest2-tm_g_lineplot.R @@ -131,7 +131,7 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting param throws validation er app_driver$set_active_module_input("param-dataset_ADLB_singleextract-filter1-vals", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("param-dataset_ADLB_singleextract-filter1-vals_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("param-dataset_ADLB_singleextract-filter1-vals_input > div > span")), "Please select Biomarker filter." ) app_driver$expect_validation_error() @@ -162,9 +162,9 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting group_var throws validatio app_driver$set_active_module_input("group_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "group_var-dataset_ADSL_singleextract-select_input > div > span" - ), + )), "Please select a treatment variable" ) app_driver$expect_validation_error() @@ -192,9 +192,9 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting y throws validation error. app_driver$set_active_module_input("y-dataset_ADLB_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( "y-dataset_ADLB_singleextract-select_input > div > span" - ), + )), "Please select an analysis variable" ) app_driver$expect_validation_error() @@ -222,7 +222,7 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting conf_level validation erro app_driver$set_active_module_input("conf_level", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("conf_level_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("conf_level_input > div > span")), "Please choose a confidence level" ) app_driver$expect_validation_error() diff --git a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R index 9f18e16e1..1049f7e99 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R @@ -254,7 +254,7 @@ testthat::test_that("e2e - tm_g_pp_patient_timeline: Deselecting patient_id colu app_driver$set_active_module_input("patient_id", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("patient_timeline_plot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("patient_id_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("patient_id_input > div > span")), "Please select a patient" ) app_driver$expect_validation_error() @@ -351,7 +351,7 @@ testthat::test_that( app_driver$set_active_module_input("aetime_start-dataset_ADAE_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("aetime_start-dataset_ADAE_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aetime_start-dataset_ADAE_singleextract-select_input > div > span")), "Please add AE start date." ) app_driver$expect_validation_error() @@ -387,7 +387,7 @@ testthat::test_that( app_driver$set_active_module_input("aetime_end-dataset_ADAE_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("aetime_end-dataset_ADAE_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aetime_end-dataset_ADAE_singleextract-select_input > div > span")), "Please add AE end date." ) app_driver$expect_validation_error() @@ -421,7 +421,7 @@ testthat::test_that( app_driver$set_active_module_input("aerelday_start-dataset_ADAE_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("aerelday_start-dataset_ADAE_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aerelday_start-dataset_ADAE_singleextract-select_input > div > span")), "Please add AE start date." ) app_driver$expect_validation_error() @@ -455,7 +455,7 @@ testthat::test_that( app_driver$set_active_module_input("aerelday_end-dataset_ADAE_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("aerelday_end-dataset_ADAE_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aerelday_end-dataset_ADAE_singleextract-select_input > div > span")), "Please add AE end date." ) app_driver$expect_validation_error() @@ -491,7 +491,7 @@ testthat::test_that( app_driver$set_active_module_input("dstime_start-dataset_ADCM_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("dstime_start-dataset_ADCM_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("dstime_start-dataset_ADCM_singleextract-select_input > div > span")), "Please add Medication start date." ) app_driver$expect_validation_error() @@ -527,7 +527,7 @@ testthat::test_that( app_driver$set_active_module_input("dstime_end-dataset_ADCM_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("dstime_end-dataset_ADCM_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("dstime_end-dataset_ADCM_singleextract-select_input > div > span")), "Please add Medication end date." ) app_driver$expect_validation_error() @@ -561,7 +561,7 @@ testthat::test_that( app_driver$set_active_module_input("dsrelday_start-dataset_ADCM_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("dsrelday_start-dataset_ADCM_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("dsrelday_start-dataset_ADCM_singleextract-select_input > div > span")), "Please add Medication start date." ) app_driver$expect_validation_error() @@ -595,7 +595,7 @@ testthat::test_that( app_driver$set_active_module_input("dsrelday_end-dataset_ADCM_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("myplot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("dsrelday_end-dataset_ADCM_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("dsrelday_end-dataset_ADCM_singleextract-select_input > div > span")), "Please add Medication end date." ) app_driver$expect_validation_error() diff --git a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R index a35d3ef9c..95a24f2e7 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R @@ -111,7 +111,7 @@ testthat::test_that("e2e - tm_g_pp_vitals: Deselecting patient_id column throws app_driver$set_active_module_input("patient_id", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("vitals_plot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("patient_id_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("patient_id_input > div > span")), "Please select a patient." ) app_driver$expect_validation_error() @@ -132,7 +132,7 @@ testthat::test_that( # Expecting validation error on empty PARAMCD levels input app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module("paramcd_levels > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("paramcd_levels > div > span")), "Please select PARAMCD variable levels." ) @@ -163,7 +163,7 @@ testthat::test_that("e2e - tm_g_pp_vitals: Deselecting paramcd throws validation app_driver$set_active_module_input("paramcd-dataset_ADVS_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("vitals_plot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("paramcd-dataset_ADVS_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("paramcd-dataset_ADVS_singleextract-select_input > div > span")), "Please select PARAMCD variable." ) app_driver$expect_validation_error() @@ -191,7 +191,7 @@ testthat::test_that("e2e - tm_g_pp_vitals: Deselecting xaxis column throws valid app_driver$set_active_module_input("xaxis-dataset_ADVS_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("vitals_plot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("xaxis-dataset_ADVS_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("xaxis-dataset_ADVS_singleextract-select_input > div > span")), "Please select Vitals x-axis variable." ) app_driver$expect_validation_error() @@ -219,7 +219,7 @@ testthat::test_that("e2e - tm_g_pp_vitals: Deselecting aval_var column throws va app_driver$set_active_module_input("aval_var-dataset_ADVS_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_plot_output("vitals_plot"), character(0)) testthat::expect_identical( - app_driver$namespaces(TRUE)$module("aval_var-dataset_ADVS_singleextract-select_input > div > span"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("aval_var-dataset_ADVS_singleextract-select_input > div > span")), "Please select AVAL variable." ) app_driver$expect_validation_error() From f09bf2a9e78c160c13607146ccdc5273d798b118 Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 24 Nov 2025 12:28:23 +0100 Subject: [PATCH 06/37] fix tm_a_gee --- tests/testthat/test-shinytest2-tm_a_gee.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_a_gee.R b/tests/testthat/test-shinytest2-tm_a_gee.R index 1b4f246ea..3dd0e9a90 100644 --- a/tests/testthat/test-shinytest2-tm_a_gee.R +++ b/tests/testthat/test-shinytest2-tm_a_gee.R @@ -59,9 +59,10 @@ testthat::test_that( { skip_if_too_deep(5) app_driver <- app_driver_tm_a_gee() + app_driver$wait_for_idle() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "GEE" ) From 4cc449d68461479a242087b4a79b58b72f18fe25 Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 24 Nov 2025 15:41:29 +0100 Subject: [PATCH 07/37] fix a_mmrm --- tests/testthat/test-shinytest2-tm_a_mmrm.R | 44 ++++++++++++++++------ 1 file changed, 32 insertions(+), 12 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_a_mmrm.R b/tests/testthat/test-shinytest2-tm_a_mmrm.R index 3343cadaf..b21c333a7 100644 --- a/tests/testthat/test-shinytest2-tm_a_mmrm.R +++ b/tests/testthat/test-shinytest2-tm_a_mmrm.R @@ -103,7 +103,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_a_mmrm(FALSE) - testthat::expect_equal(app_driver$get_text("#teal-teal_modules-active_tab .active"), "MMRM") + testthat::expect_equal(app_driver$get_text("a.nav-link.active"), "MMRM") testthat::expect_equal(app_driver$get_active_module_input("aval_var-dataset_ADQS_singleextract-select"), "AVAL") @@ -193,8 +193,15 @@ testthat::test_that( app_driver$set_active_module_input("output_function", "g_mmrm_lsmeans", wait_ = FALSE) app_driver$expect_no_validation_error() + app_driver$wait_for_idle() + + testthat::expect_true( + app_driver$is_visible(app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main")) + ) - plot_before <- app_driver$get_active_module_plot_output("mmrm_plot") + plot_selector <- app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main > img") + testthat::expect_true(app_driver$is_visible(plot_selector)) + plot_before <- app_driver$get_attr(plot_selector, "src") testthat::expect_match(plot_before, "data:image/png;base64,") app_driver$set_active_module_input("g_mmrm_lsmeans_select", "estimates") @@ -213,8 +220,9 @@ testthat::test_that( app_driver$set_active_module_input("g_mmrm_lsmeans_contrasts_show_pval", TRUE) app_driver$expect_no_validation_error() + app_driver$wait_for_idle() - plot <- app_driver$get_active_module_plot_output("mmrm_plot") + plot <- app_driver$get_attr(plot_selector, "src") testthat::expect_match(plot, "data:image/png;base64,") testthat::expect_false(identical(plot_before, plot)) @@ -235,14 +243,22 @@ testthat::test_that( app_driver$set_active_module_input("output_function", "g_mmrm_diagnostic", wait_ = FALSE) app_driver$expect_no_validation_error() + app_driver$wait_for_idle() + + testthat::expect_true( + app_driver$is_visible(app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main")) + ) - plot_before <- app_driver$get_active_module_plot_output("mmrm_plot") + plot_selector <- app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main > img") + testthat::expect_true(app_driver$is_visible(plot_selector)) + plot_before <- app_driver$get_attr(plot_selector, "src") testthat::expect_match(plot_before, "data:image/png;base64,") app_driver$set_active_module_input("g_mmrm_diagnostic_type", "q-q-residual") app_driver$expect_no_validation_error() + app_driver$wait_for_idle() - plot <- app_driver$get_active_module_plot_output("mmrm_plot") + plot <- app_driver$get_attr(plot_selector, "src") testthat::expect_match(plot, "data:image/png;base64,") testthat::expect_false(identical(plot_before, plot)) @@ -504,10 +520,16 @@ for (func in output_functions) { # Set initial output function app_driver$set_active_module_input("output_function", func, wait_ = FALSE) app_driver$expect_no_validation_error() - + app_driver$wait_for_idle() if (grepl("^g_", func)) { - plot_before <- app_driver$get_active_module_plot_output("mmrm_plot") + testthat::expect_true( + app_driver$is_visible(app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main")) + ) + + plot_selector <- app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main > img") + testthat::expect_true(app_driver$is_visible(plot_selector)) + plot_before <- app_driver$get_attr(plot_selector, "src") } else { table_before <- app_driver$get_active_module_table_output("mmrm_table-table-with-settings") } @@ -525,13 +547,11 @@ for (func in output_functions) { # Check output based on function type (plot or table) if (grepl("^g_", func)) { + plot_after <- app_driver$get_attr(plot_selector, "src") testthat::expect_false( - identical( - plot_before, - app_driver$get_active_module_plot_output("mmrm_plot") - ) + identical(plot_before, plot_after) ) - plot_before <- app_driver$get_active_module_plot_output("mmrm_plot") + plot_before <- plot_after } else { testthat::expect_false( identical( From 15f1b0e225e142649e0222f29ab3d1c3a17c6a13 Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 24 Nov 2025 15:44:29 +0100 Subject: [PATCH 08/37] fix barchart --- .../test-shinytest2-tm_g_barchart_simple.R | 20 ++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R index 5b0d44a29..6178c271b 100644 --- a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R +++ b/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) ) From c66880b21c2ea42a1ab4b83f85f84bdfac883188 Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 24 Nov 2025 16:54:12 +0100 Subject: [PATCH 09/37] fix link in ci --- tests/testthat/test-shinytest2-tm_g_ci.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_g_ci.R b/tests/testthat/test-shinytest2-tm_g_ci.R index 1a2d7a447..30865c5b1 100644 --- a/tests/testthat/test-shinytest2-tm_g_ci.R +++ b/tests/testthat/test-shinytest2-tm_g_ci.R @@ -88,7 +88,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_g_ci() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Confidence Interval Plot" ) From 73613d4f77e7af1f480688f48f3a585a7bc4112f Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 24 Nov 2025 16:59:02 +0100 Subject: [PATCH 10/37] specify teal branch for Remotes --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 3c01faa17..b0d10c47b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -83,7 +83,7 @@ VignetteBuilder: knitr, rmarkdown Remotes: - insightsengineering/teal, + insightsengineering/teal@bring_tests, insightsengineering/teal.reporter Config/Needs/verdepcheck: insightsengineering/teal, insightsengineering/teal.slice, insightsengineering/teal.transform, From 8c95f0bac46e00f2cbf70614bb3f722666b71d5f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Llu=C3=ADs=20Revilla?= Date: Tue, 25 Nov 2025 12:24:49 +0100 Subject: [PATCH 11/37] Run CI on all branches --- .github/workflows/check.yaml | 2 -- 1 file changed, 2 deletions(-) diff --git a/.github/workflows/check.yaml b/.github/workflows/check.yaml index 80efd07ac..7b1f358c1 100644 --- a/.github/workflows/check.yaml +++ b/.github/workflows/check.yaml @@ -8,8 +8,6 @@ on: - synchronize - reopened - ready_for_review - branches: - - main push: branches: - main From fe2aae0170be34ac3c8bee094d1c1a0d635a475e Mon Sep 17 00:00:00 2001 From: m7pr Date: Tue, 25 Nov 2025 13:20:22 +0100 Subject: [PATCH 12/37] fix forest_rsp --- tests/testthat/test-shinytest2-tm_g_forest_rsp.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R index 19c298ae5..f105218c3 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_rsp.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_rsp.R @@ -107,7 +107,7 @@ testthat::test_that( app_driver <- app_driver_tm_g_forest_rsp() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Forest Response" ) From d200e5f92ef4471f04365e6b2c92c9d9192a8906 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Llu=C3=ADs=20Revilla?= <185338939+llrs-roche@users.noreply.github.com> Date: Tue, 25 Nov 2025 14:44:20 +0100 Subject: [PATCH 13/37] Refactor UI tests for tm_t_shift_by* modules (#1444) # Pull Request Fixes #1440 Companion of #1441 Test with `devtools::test(filter = "tm_t_shift_by")` Note that here the tests use the class of the elements instead of the id of the elements like in other PR (#1443, #1442 ) --- tests/testthat/test-shinytest2-tm_t_shift_by_arm.R | 5 +++-- .../testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R | 8 +++++--- tests/testthat/test-shinytest2-tm_t_shift_by_grade.R | 3 ++- 3 files changed, 10 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R index 308581208..de6aea52b 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm.R @@ -68,7 +68,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_arm() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Shift by Arm Table" ) testthat::expect_equal( @@ -120,8 +120,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm: Deselection of arm_var throws vali app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "A treatment variable is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R index 0637aafbe..027c165cc 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_arm_by_worst.R @@ -72,7 +72,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_shift_by_arm_by_worst() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Shift by Arm Table" ) testthat::expect_equal( @@ -133,8 +133,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of arm_var th app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "A treatment variable is required" ) app_driver$stop() @@ -232,8 +233,9 @@ testthat::test_that("e2e - tm_t_shift_by_arm_by_worst: Deselection of aval_var t app_driver$set_active_module_input("aval_var-dataset_ADEG_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "aval_var-dataset_ADEG_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("aval_var-dataset_ADEG_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "An analysis range indicator required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R index 736f49d73..ff240ee0d 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R @@ -143,8 +143,9 @@ testthat::test_that("e2e - tm_t_shift_by_grade: Deselection of arm_var throws va app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "A treatment variable is required" ) app_driver$stop() From 20a20ae93f022aeab353e09b082bcb6642f0774e Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 11:07:17 +0100 Subject: [PATCH 14/37] fix g_ipp --- tests/testthat/test-shinytest2-tm_g_ipp.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_g_ipp.R b/tests/testthat/test-shinytest2-tm_g_ipp.R index c02931a6a..5142e4dc5 100644 --- a/tests/testthat/test-shinytest2-tm_g_ipp.R +++ b/tests/testthat/test-shinytest2-tm_g_ipp.R @@ -84,7 +84,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_g_ipp() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Individual Patient Plot" ) testthat::expect_equal( From 32d9ac8bd673f9b2b5864d131f867dcdf9936c7a Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 11:17:24 +0100 Subject: [PATCH 15/37] fix tm_g_km --- tests/testthat/test-shinytest2-tm_g_km.R | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_km.R b/tests/testthat/test-shinytest2-tm_g_km.R index 620f780b3..923fd0132 100644 --- a/tests/testthat/test-shinytest2-tm_g_km.R +++ b/tests/testthat/test-shinytest2-tm_g_km.R @@ -97,7 +97,7 @@ testthat::test_that( app_driver <- app_driver_tm_g_km() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Kaplan-Meier Plot" ) @@ -314,18 +314,18 @@ testthat::test_that("e2e - tm_g_km: Deselecting {ties_coxph} gives no validation # plot settings --------------------------------------------------------------------------------------------------- -testthat::test_that("e2e - tm_g_km: Starts with specified collapsed additional plot settings.", { +testthat::test_that("e2e - tm_g_km: Starts with uncollapsed additional plot settings.", { skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xticks"))) - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("yval"))) - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("font_size"))) - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("rel_height_plot"))) - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_ci_ribbon"))) - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_km_table"))) - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("conf_level"))) - testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xlab"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xticks"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("yval"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("font_size"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("rel_height_plot"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_ci_ribbon"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_km_table"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("conf_level"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xlab"))) testthat::expect_equal(app_driver$get_active_module_input("xticks"), "") testthat::expect_equal(app_driver$get_active_module_input("yval"), "Survival probability") From d9912f22ac2c690d89aed7516c287438b4cefd23 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 11:50:48 +0100 Subject: [PATCH 16/37] fix lineplot --- .../testthat/test-shinytest2-tm_g_lineplot.R | 35 ++++++++++--------- 1 file changed, 18 insertions(+), 17 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_lineplot.R b/tests/testthat/test-shinytest2-tm_g_lineplot.R index 26ce175cb..ce561b270 100644 --- a/tests/testthat/test-shinytest2-tm_g_lineplot.R +++ b/tests/testthat/test-shinytest2-tm_g_lineplot.R @@ -1,6 +1,7 @@ app_driver_tm_g_lineplot <- function() { data <- within(teal.data::teal_data(), { require(nestcolor) + require(dplyr) ADSL <- teal.modules.clinical::tmc_ex_adsl ADLB <- dplyr::mutate( @@ -85,7 +86,7 @@ testthat::test_that( app_driver <- app_driver_tm_g_lineplot() - testthat::expect_equal(trimws(app_driver$get_text("#teal-teal_modules-active_tab .active")), "Line Plot") + testthat::expect_equal(trimws(app_driver$get_text("a.nav-link.active")), "Line Plot") testthat::expect_equal(app_driver$get_active_module_input("param-dataset_ADLB_singleextract-filter1-vals"), "ALT") testthat::expect_equal(app_driver$get_active_module_input("group_var-dataset_ADSL_singleextract-select"), "ARM") testthat::expect_equal(app_driver$get_active_module_input("y-dataset_ADLB_singleextract-select"), "AVAL") @@ -113,13 +114,13 @@ testthat::test_that( testthat::test_that("e2e - tm_g_lineplot: Selecting param changes plot and doesn't throw validation errors.", { skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() + app_driver$wait_for_idle() plot_before <- app_driver$get_active_module_plot_output("myplot") app_driver$set_active_module_input("param-dataset_ADLB_singleextract-filter1-vals", "CRP") + app_driver$wait_for_idle() + plot_after <- app_driver$get_active_module_plot_output("myplot") testthat::expect_false( - identical( - plot_before, - app_driver$get_active_module_plot_output("myplot") - ) + identical(plot_before, plot_after) ) app_driver$expect_no_validation_error() app_driver$stop() @@ -143,13 +144,13 @@ testthat::test_that( { skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() + app_driver$wait_for_idle() plot_before <- app_driver$get_active_module_plot_output("myplot") app_driver$set_active_module_input("group_var-dataset_ADSL_singleextract-select", "ARMCD") + app_driver$wait_for_idle() + plot_after <- app_driver$get_active_module_plot_output("myplot") testthat::expect_false( - identical( - plot_before, - app_driver$get_active_module_plot_output("myplot") - ) + identical(plot_before, plot_after) ) app_driver$expect_no_validation_error() app_driver$stop() @@ -174,13 +175,13 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting group_var throws validatio testthat::test_that("e2e - tm_g_lineplot: Selecting y changes plot and doesn't throw validation errors.", { skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() + app_driver$wait_for_idle() plot_before <- app_driver$get_active_module_plot_output("myplot") app_driver$set_active_module_input("y-dataset_ADLB_singleextract-select", "BASE") + app_driver$wait_for_idle() + plot_after <- app_driver$get_active_module_plot_output("myplot") testthat::expect_false( - identical( - plot_before, - app_driver$get_active_module_plot_output("myplot") - ) + identical(plot_before, plot_after) ) app_driver$expect_no_validation_error() app_driver$stop() @@ -204,13 +205,13 @@ testthat::test_that("e2e - tm_g_lineplot: Deselecting y throws validation error. testthat::test_that("e2e - tm_g_lineplot: Selecting conf_level changes plot and doesn't throw validation errors.", { skip_if_too_deep(5) app_driver <- app_driver_tm_g_lineplot() + app_driver$wait_for_idle() plot_before <- app_driver$get_active_module_plot_output("myplot") app_driver$set_active_module_input("conf_level", "0.8") + app_driver$wait_for_idle() + plot_after <- app_driver$get_active_module_plot_output("myplot") testthat::expect_false( - identical( - plot_before, - app_driver$get_active_module_plot_output("myplot") - ) + identical(plot_before, plot_after) ) app_driver$expect_no_validation_error() app_driver$stop() From 4a59e823d5e6d1aae67cbd7a3a5ffadeb34e60f2 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 11:51:25 +0100 Subject: [PATCH 17/37] fix forest_tte --- tests/testthat/test-shinytest2-tm_g_forest_tte.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_forest_tte.R b/tests/testthat/test-shinytest2-tm_g_forest_tte.R index 49257ddd6..895749ff9 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_tte.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_tte.R @@ -1,7 +1,7 @@ app_driver_tm_g_forest_tte <- function() { data <- within(teal.data::teal_data(), { ADSL <- teal.modules.clinical::tmc_ex_adsl - ADSL$RACE <- with_label(droplevels(ADSL$RACE), "Race") + ADSL$RACE <- formatters::with_label(droplevels(ADSL$RACE), "Race") ADTTE <- teal.modules.clinical::tmc_ex_adtte }) teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[names(data)] @@ -80,8 +80,9 @@ testthat::test_that("e2e - tm_g_forest_tte: Module initializes in teal without e app_driver <- app_driver_tm_g_forest_tte() app_driver$expect_no_shiny_error() app_driver$expect_no_validation_error() + app_driver$wait_for_idle() testthat::expect_true( - app_driver$is_visible(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")) + app_driver$is_visible('#teal-teal_modules-nav-forest_survival__e2e_-module-myplot-plot_main') ) app_driver$stop() @@ -95,7 +96,7 @@ testthat::test_that( app_driver <- app_driver_tm_g_forest_tte() testthat::expect_identical( - trimws(app_driver$get_text("#teal-teal_modules-active_tab .active")), + app_driver$get_text("a.nav-link.active"), "Forest Survival (e2e)" ) From b03a843f5516f77a9ec4fed50238bed5d5a07c02 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 11:56:24 +0100 Subject: [PATCH 18/37] fix abnormality --- tests/testthat/test-shinytest2-tm_t_abnormality.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality.R b/tests/testthat/test-shinytest2-tm_t_abnormality.R index 7543c10f8..ec62c05ec 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality.R @@ -82,7 +82,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_abnormality() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Abnormality Table" ) testthat::expect_equal( From 551eaac22380eee5d4b7d925884d3aea90bbdc04 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 11:57:43 +0100 Subject: [PATCH 19/37] fix links --- .../testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R | 2 +- tests/testthat/test-shinytest2-tm_t_ancova.R | 2 +- tests/testthat/test-shinytest2-tm_t_binary_outcome.R | 2 +- tests/testthat/test-shinytest2-tm_t_coxreg.R | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R index 0a5e0286d..5e32d05c9 100644 --- a/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_abnormality_by_worst_grade.R @@ -78,7 +78,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_abnormality_by_worst_grade() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Laboratory Test Results with Highest Grade Post-Baseline" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_ancova.R b/tests/testthat/test-shinytest2-tm_t_ancova.R index 1f966325d..2092c238b 100644 --- a/tests/testthat/test-shinytest2-tm_t_ancova.R +++ b/tests/testthat/test-shinytest2-tm_t_ancova.R @@ -78,7 +78,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_ancova() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "ANCOVA Table" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R index d97c9d206..7c51b5f25 100644 --- a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R +++ b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R @@ -109,7 +109,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_binary_outcome() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Responders" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_coxreg.R b/tests/testthat/test-shinytest2-tm_t_coxreg.R index a34917642..78a5095ee 100644 --- a/tests/testthat/test-shinytest2-tm_t_coxreg.R +++ b/tests/testthat/test-shinytest2-tm_t_coxreg.R @@ -76,7 +76,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_coxreg() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Cox Reg." ) testthat::expect_equal( From 4b39b80567b161a0d6c330730f6c650191840495 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 14:04:06 +0100 Subject: [PATCH 20/37] fix binary outcome --- tests/testthat/test-shinytest2-tm_t_binary_outcome.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R index 7c51b5f25..c3e2e1fd7 100644 --- a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R +++ b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R @@ -225,7 +225,7 @@ testthat::test_that("e2e - tm_t_binary_outcome: Deselection of responders throws testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-responders .shiny-validation-message"), + app_driver$get_text(app_driver$namespaces(TRUE)$module("responders_input .shiny-validation-message")), "`Responders` field is empty" ) app_driver$stop() From 701c5fa0967508f051f11f0b74c1f00ac2f4d128 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 14:14:38 +0100 Subject: [PATCH 21/37] fix links --- tests/testthat/test-shinytest2-tm_t_exposure.R | 2 +- tests/testthat/test-shinytest2-tm_t_logistic.R | 2 +- tests/testthat/test-shinytest2-tm_t_mult_events.R | 2 +- tests/testthat/test-shinytest2-tm_t_pp_basic_info.R | 2 +- tests/testthat/test-shinytest2-tm_t_pp_laboratory.R | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_t_exposure.R b/tests/testthat/test-shinytest2-tm_t_exposure.R index 2183f01c9..14a1b1bbe 100644 --- a/tests/testthat/test-shinytest2-tm_t_exposure.R +++ b/tests/testthat/test-shinytest2-tm_t_exposure.R @@ -88,7 +88,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_exposure() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Duration of Exposure Table" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_logistic.R b/tests/testthat/test-shinytest2-tm_t_logistic.R index ebe80c914..3ce109f6e 100644 --- a/tests/testthat/test-shinytest2-tm_t_logistic.R +++ b/tests/testthat/test-shinytest2-tm_t_logistic.R @@ -70,7 +70,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_logistic() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Logistic Regression" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_mult_events.R b/tests/testthat/test-shinytest2-tm_t_mult_events.R index 28ffda557..8479ef8bc 100644 --- a/tests/testthat/test-shinytest2-tm_t_mult_events.R +++ b/tests/testthat/test-shinytest2-tm_t_mult_events.R @@ -56,7 +56,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_mult_events() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Concomitant Medications by Medication Class and Preferred Name" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R index d61f8b191..ce39b3d80 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_basic_info.R @@ -38,7 +38,7 @@ testthat::test_that("e2e - tm_t_pp_basic_info: Starts with specified label, pati skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_basic_info() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Basic Info" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R index d6402df1a..d1b45c7bb 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R @@ -64,7 +64,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_pp_laboratory() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Vitals" ) testthat::expect_equal( From 5b0812d612f2c92a365b2b41d0c9052a08cdf961 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 15:00:00 +0100 Subject: [PATCH 22/37] fix laboratory --- .../testthat/test-shinytest2-tm_t_pp_laboratory.R | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R b/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R index d1b45c7bb..6d971ab9f 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_laboratory.R +++ b/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, From a3500a81787ba9fe2da78834705c1cad71627af9 Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 15:14:03 +0100 Subject: [PATCH 23/37] fix links --- tests/testthat/test-shinytest2-tm_t_pp_medical_history.R | 2 +- tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R | 2 +- tests/testthat/test-shinytest2-tm_t_smq.R | 2 +- tests/testthat/test-shinytest2-tm_t_tte.R | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R index 67c808536..a753ac8c8 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_medical_history.R @@ -54,7 +54,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_pp_medical_history() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Medical History" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R index de82cd552..67483a9b6 100644 --- a/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R +++ b/tests/testthat/test-shinytest2-tm_t_pp_prior_medication.R @@ -63,7 +63,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_pp_prior_medication() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Prior Medication" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_smq.R b/tests/testthat/test-shinytest2-tm_t_smq.R index 013e6cac4..aa26f260c 100644 --- a/tests/testthat/test-shinytest2-tm_t_smq.R +++ b/tests/testthat/test-shinytest2-tm_t_smq.R @@ -72,7 +72,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_smq() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Adverse Events by SMQ Table" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_t_tte.R b/tests/testthat/test-shinytest2-tm_t_tte.R index 22cba4856..866e5ec8e 100644 --- a/tests/testthat/test-shinytest2-tm_t_tte.R +++ b/tests/testthat/test-shinytest2-tm_t_tte.R @@ -93,7 +93,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_tte() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Time To Event Table" ) testthat::expect_equal( From d78854bf7fc694b949306ce313c44ab94b669855 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Llu=C3=ADs=20Revilla?= <185338939+llrs-roche@users.noreply.github.com> Date: Wed, 26 Nov 2025 16:43:38 +0100 Subject: [PATCH 24/37] Refactor UI tests for tm_t_events* modules (#1443) # Pull Request Part of #1440 Companion of #1441 --------- Co-authored-by: Marcin <133694481+m7pr@users.noreply.github.com> --- tests/testthat/test-shinytest2-tm_t_events.R | 5 +++-- tests/testthat/test-shinytest2-tm_t_events_by_grade.R | 8 +++++--- tests/testthat/test-shinytest2-tm_t_events_patyear.R | 5 +++-- tests/testthat/test-shinytest2-tm_t_events_summary.R | 5 +++-- 4 files changed, 14 insertions(+), 9 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_t_events.R b/tests/testthat/test-shinytest2-tm_t_events.R index db1e1f8a4..7a85fda3b 100644 --- a/tests/testthat/test-shinytest2-tm_t_events.R +++ b/tests/testthat/test-shinytest2-tm_t_events.R @@ -59,7 +59,7 @@ testthat::test_that( app_driver <- app_driver_tm_t_events() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Adverse Event Table" ) testthat::expect_equal( @@ -116,8 +116,9 @@ testthat::test_that("e2e - tm_t_events: Deselection of arm_var throws validation app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "Please select 1 or 2 treatment variable values" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R index b173daef4..5259f2192 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R @@ -71,7 +71,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_by_grade() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Adverse Events by Grade Table" ) testthat::expect_equal( @@ -129,8 +129,9 @@ testthat::test_that("e2e - tm_t_events_by_grade: Deselection of arm_var throws v app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "A treatment variable is required" ) app_driver$stop() @@ -232,8 +233,9 @@ testthat::test_that("e2e - tm_t_events_by_grade: Deselection of grade throws val app_driver$set_active_module_input("grade-dataset_ADAE_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("grade-dataset_ADAE_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "An event grade is required" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_events_patyear.R b/tests/testthat/test-shinytest2-tm_t_events_patyear.R index b8304533f..33c37f95e 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_patyear.R +++ b/tests/testthat/test-shinytest2-tm_t_events_patyear.R @@ -72,7 +72,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_patyear() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "AE Rate Adjusted for Patient-Years At Risk Table" ) testthat::expect_equal( @@ -168,8 +168,9 @@ testthat::test_that("e2e - tm_t_events_patyear: Deselection of arm_var throws va data.frame() ) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "Please select exactly 1 or 2 treatment variables" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_events_summary.R b/tests/testthat/test-shinytest2-tm_t_events_summary.R index be833026b..57df6737f 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_events_summary.R @@ -111,7 +111,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_events_summary() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Adverse Events Summary" ) testthat::expect_equal( @@ -158,8 +158,9 @@ testthat::test_that("e2e - tm_t_events_summary: Deselection of arm_var throws va app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "Please select exactly 1 or 2 treatment variables" ) app_driver$stop() From 4d003c2e71cf9817ed18bdc00094a939cf8f74bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Llu=C3=ADs=20Revilla?= <185338939+llrs-roche@users.noreply.github.com> Date: Wed, 26 Nov 2025 16:44:13 +0100 Subject: [PATCH 25/37] Update UI selectors for tm_t_summary (#1442) # Pull Request Part of #1440 This was after a discussion to use the shorter selector for the UI of the modules Test the two modules affected with `devtools::test(filter = "tm_t_summary")`. Short selectors used operators as found on https://www.w3schools.com/cssref/css_selectors.php --- tests/testthat/test-shinytest2-tm_t_summary.R | 5 +++-- tests/testthat/test-shinytest2-tm_t_summary_by.R | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_t_summary.R b/tests/testthat/test-shinytest2-tm_t_summary.R index 315a42bb9..665493996 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary.R +++ b/tests/testthat/test-shinytest2-tm_t_summary.R @@ -50,7 +50,7 @@ testthat::test_that("e2e - tm_t_summary: Starts with specified label, arm_var, s skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Demographic Table" ) testthat::expect_equal( @@ -96,8 +96,9 @@ testthat::test_that("e2e - tm_t_summary: Deselection of arm_var throws validatio app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "Please select 1 or 2 column variables" ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_t_summary_by.R b/tests/testthat/test-shinytest2-tm_t_summary_by.R index e6903bd03..4c886de58 100644 --- a/tests/testthat/test-shinytest2-tm_t_summary_by.R +++ b/tests/testthat/test-shinytest2-tm_t_summary_by.R @@ -71,7 +71,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_summary_by() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Summary by Row Groups Table" ) testthat::expect_equal( @@ -130,8 +130,9 @@ testthat::test_that("e2e - tm_t_summary_by: Deselection of arm_var throws valida app_driver$set_active_module_input("arm_var-dataset_ADSL_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() + selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message")), + app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "Please select 1 or 2 column variables" ) app_driver$stop() From d5f108203333575dd6eb4a27fdf2463357587a2e Mon Sep 17 00:00:00 2001 From: m7pr Date: Wed, 26 Nov 2025 16:57:54 +0100 Subject: [PATCH 26/37] fix barchart --- .../test-shinytest2-tm_g_barchart_simple.R | 57 +++++++++++++------ 1 file changed, 39 insertions(+), 18 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R index 6178c271b..36aa40f94 100644 --- a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R +++ b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R @@ -117,12 +117,16 @@ testthat::test_that("e2e - tm_g_barchart_simple: Module initializes in teal with skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() + app_driver$wait_for_idle() app_driver$expect_no_shiny_error() app_driver$expect_no_validation_error() - testthat::expect_true( - app_driver$is_visible(app_driver$namespaces(TRUE)$module("myplot-plot_out_main")) + testthat::expect_match( + app_driver$get_active_module_plot_output("myplot"), + "data:image/png;base64," ) + # Table is rendered asynchronously, wait a bit more + app_driver$wait_for_idle() testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("table"))) app_driver$stop() @@ -134,9 +138,10 @@ testthat::test_that( { skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() + app_driver$wait_for_idle() testthat::expect_equal( - trimws(app_driver$get_text("#teal-teal_modules-active_tab .active")), + app_driver$get_text("a.nav-link.active"), "ADAE Analysis (e2e)" ) @@ -194,8 +199,10 @@ testthat::test_that( { skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() + app_driver$wait_for_idle() plot_before <- app_driver$get_active_module_plot_output("myplot") - app_driver$set_input(app_driver$namespaces(TRUE)$module(ns_des_input("x", "ADSL", "select")), "RACE") + app_driver$set_active_module_input(ns_des_input("x", "ADSL", "select"), "RACE") + 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() @@ -205,13 +212,14 @@ 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_input(app_driver$namespaces(TRUE)$module(ns_des_input("x", "ADSL", "select")), character(0L)) + app_driver$wait_for_idle() + app_driver$set_active_module_input(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( sprintf( - "%s .shiny-validation-message", - ns_des_input("x", "ADSL", "select_input") + "%s_input .shiny-validation-message", + ns_des_input("x", "ADSL", "select") ) )), "^Please select an x-variable$" @@ -230,11 +238,15 @@ test_dataset_selection <- function(input_id, new_dataset, new_value) { { skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() + app_driver$wait_for_idle() plot_before <- app_driver$get_active_module_plot_output("myplot") - app_driver$set_input(app_driver$namespaces(TRUE)$module(sprintf("%s-dataset", input_id)), new_dataset) + app_driver$set_active_module_input(sprintf("%s-dataset", input_id), new_dataset) + app_driver$wait_for_idle() 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_input(app_driver$namespaces(TRUE)$module(ns_des_input(input_id, new_dataset, "select")), new_value) + # Wait for UI to update with new dataset options before setting value + app_driver$wait_for_idle() + app_driver$set_active_module_input(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")), @@ -254,8 +266,10 @@ test_dataset_selection <- function(input_id, new_dataset, new_value) { { skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() + app_driver$wait_for_idle() plot_before <- app_driver$get_active_module_plot_output("myplot") - app_driver$set_input(app_driver$namespaces(TRUE)$module(sprintf("%s-dataset", input_id)), character(0L)) + app_driver$set_active_module_input(sprintf("%s-dataset", input_id), character(0L)) + app_driver$wait_for_idle() 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() @@ -279,17 +293,19 @@ 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_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$wait_for_idle() + 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$wait_for_idle() app_driver$expect_validation_error() testthat::expect_match( app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( - "%s .shiny-validation-message", - ns_des_input("x", "ADSL", "select_input") + "%s_input .shiny-validation-message", + ns_des_input("x", "ADSL", "select") ) )), "^Duplicated value: ACTARM$" @@ -298,8 +314,8 @@ for (input_id in c("fill", "x_facet", "y_facet")) { testthat::expect_match( app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( - "%s .shiny-validation-message", - ns_des_input(input_id, "ADSL", "select_input") + "%s_input .shiny-validation-message", + ns_des_input(input_id, "ADSL", "select") ) )), "^Duplicated value: ACTARM$" @@ -320,7 +336,9 @@ test_that_plot_settings <- function(input_id, new_value, setup_fun = function(ap { skip_if_too_deep(5) app_driver <- app_driver_tm_g_barchart_simple() + app_driver$wait_for_idle() setup_fun(app_driver) + app_driver$wait_for_idle() 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() @@ -345,5 +363,8 @@ test_that_plot_settings("show_n", TRUE) test_that_plot_settings( "rotate_bar_labels", FALSE, - setup_fun = function(app_driver) app_driver$set_input(app_driver$namespaces(TRUE)$module("label_bars"), TRUE) + setup_fun = function(app_driver) { + app_driver$set_active_module_input("label_bars", TRUE) + return(NULL) + } ) From 40b54891771f9a9c408bdacf3b5793c1d27a3508 Mon Sep 17 00:00:00 2001 From: Oriol Senan <35930244+osenan@users.noreply.github.com> Date: Wed, 26 Nov 2025 23:21:55 -0300 Subject: [PATCH 27/37] Fix one selector in tm_shift_by_grade (#1445) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit # Pull Request Part of #1440 Companion #1441 While reviewing [this PR](https://github.com/insightsengineering/teal.modules.clinical/pull/1444) I found that one e2e test on the edited files was failing. The fix was simple, I was working on a similar fix for `g_pp` modules. Please test it with `devtools::test(filter = "tm_t_shift_by")` --------- Signed-off-by: Oriol Senan <35930244+osenan@users.noreply.github.com> Co-authored-by: osenan Co-authored-by: Lluís Revilla <185338939+llrs-roche@users.noreply.github.com> --- tests/testthat/test-shinytest2-tm_t_shift_by_grade.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R index ff240ee0d..ab8c99b54 100644 --- a/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_shift_by_grade.R @@ -85,7 +85,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_t_shift_by_grade() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Grade Laboratory Abnormality Table" ) testthat::expect_equal( From 1a74548231e88732e07ae93bfe89c2ff37c9383c Mon Sep 17 00:00:00 2001 From: Oriol Senan <35930244+osenan@users.noreply.github.com> Date: Thu, 27 Nov 2025 06:16:39 -0300 Subject: [PATCH 28/37] wip: fix e2e test on tm_g_pp functions (#1446) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit # Fix e2e tests Fixes #1440 Companion #1441 To verify the result of tests, you should do the following: 1. Install [this branch](https://github.com/insightsengineering/teal/pull/1653) of teal 2. Install teal modules clinical on this version 3. ``` devtools::load_all() library(shinytest2) source("tests/testthat/helper-TealAppDriver.R") source("tests/testthat/helper-testing-depth.R") testthat::test_file("tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R") testthat::test_file("tests/testthat/test-shinytest2-tm_g_pp_vitals.R") testthat::test_file("tests/testthat/test-shinytest2-tm_g_pp_therapy.R") testthat::test_file("tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R") ``` --------- Co-authored-by: osenan Co-authored-by: Lluís Revilla <185338939+llrs-roche@users.noreply.github.com> Co-authored-by: Marcin <133694481+m7pr@users.noreply.github.com> --- .../test-shinytest2-tm_g_pp_adverse_events.R | 18 +++++++++--------- .../test-shinytest2-tm_g_pp_patient_timeline.R | 2 +- .../testthat/test-shinytest2-tm_g_pp_therapy.R | 12 ++++++------ .../testthat/test-shinytest2-tm_g_pp_vitals.R | 2 +- 4 files changed, 17 insertions(+), 17 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R b/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R index 1560f0aad..018bcf883 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_adverse_events.R @@ -74,7 +74,7 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Adverse Events" ) @@ -152,10 +152,10 @@ testthat::test_that( skip_if_too_deep(5) app_driver <- app_driver_tm_g_pp_adverse_events() input_id <- "patient_id" - app_driver$set_active_module_input(input_id, "") + app_driver$set_active_module_input(input_id, NULL) app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id)), + app_driver$get_text(app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id))), "Please select a patient" ) app_driver$stop() @@ -197,7 +197,7 @@ testthat::test_that( app_driver$set_active_module_input(input_id, "") app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id)), + app_driver$get_text(app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id))), "Please select AETERM variable." ) app_driver$stop() @@ -239,7 +239,7 @@ testthat::test_that( app_driver$set_active_module_input(input_id, "") app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id)), + app_driver$get_text(app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id))), "Please select AETOXGR variable." ) app_driver$stop() @@ -281,7 +281,7 @@ testthat::test_that( app_driver$set_active_module_input(input_id, "") app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id)), + app_driver$get_text(app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id))), "Please select AEREL variable." ) app_driver$stop() @@ -323,7 +323,7 @@ testthat::test_that( app_driver$set_active_module_input(input_id, "") app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id)), + app_driver$get_text(app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id))), "Please select AEOUT variable." ) app_driver$stop() @@ -365,7 +365,7 @@ testthat::test_that( app_driver$set_active_module_input(input_id, "") app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id)), + app_driver$get_text(app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id))), "Please select AEACN variable." ) app_driver$stop() @@ -407,7 +407,7 @@ testthat::test_that( app_driver$set_active_module_input(input_id, "") app_driver$expect_validation_error() testthat::expect_identical( - app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id)), + app_driver$get_text(app_driver$namespaces(TRUE)$module(sprintf("%s_input .shiny-validation-message", input_id))), "Please select ASTDY variable." ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R index 1049f7e99..7c2c38245 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_patient_timeline.R @@ -111,7 +111,7 @@ testthat::test_that( app_driver <- app_driver_tm_g_pp_patient_timeline() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Patient Timeline" ) testthat::expect_equal( diff --git a/tests/testthat/test-shinytest2-tm_g_pp_therapy.R b/tests/testthat/test-shinytest2-tm_g_pp_therapy.R index 7e66e1d45..4669b7210 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_therapy.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_therapy.R @@ -96,7 +96,7 @@ testthat::test_that("e2e - tm_g_pp_therapy: Module initializes in teal without e app_driver$expect_no_validation_error() testthat::expect_true( - app_driver$is_visible(app_driver$namespaces(TRUE)$module("therapy_plot-plot_out_main")) + app_driver$is_visible(app_driver$namespaces(TRUE)$module("therapy_plot-plot_main")) ) testthat::expect_true( app_driver$is_visible(app_driver$namespaces(TRUE)$module("therapy_table")) @@ -113,7 +113,7 @@ testthat::test_that( app_driver <- app_driver_tm_g_pp_therapy() testthat::expect_equal( - trimws(app_driver$get_text("#teal-teal_modules-active_tab .active")), + trimws(app_driver$get_text("a.nav-link.active")), "Therapy (e2e)" ) @@ -155,7 +155,7 @@ test_different_selection <- function(input_name, input_id, new_value) { app_driver <- app_driver_tm_g_pp_therapy() plot_before <- list( app_driver$get_active_module_plot_output("therapy_plot"), - app_driver$namespaces(TRUE)$module("therapy_table") + app_driver$get_active_module_table_output("therapy_table") ) app_driver$set_active_module_input(input_id, new_value) testthat::expect_false( @@ -163,7 +163,7 @@ test_different_selection <- function(input_name, input_id, new_value) { plot_before, list( app_driver$get_active_module_plot_output("therapy_plot"), - app_driver$namespaces(TRUE)$module("therapy_table") + app_driver$get_active_module_table_output("therapy_table") ) ) ) @@ -211,12 +211,12 @@ test_delection_validation <- function(input_name, input_id, deselect_message) { app_driver$set_active_module_input(input_id, NULL) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$namespaces(TRUE)$module( + app_driver$get_text(app_driver$namespaces(TRUE)$module( sprintf( "%s_input .shiny-validation-message", input_id ) - ), + )), deselect_message ) app_driver$stop() diff --git a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R index 95a24f2e7..5be1d0357 100644 --- a/tests/testthat/test-shinytest2-tm_g_pp_vitals.R +++ b/tests/testthat/test-shinytest2-tm_g_pp_vitals.R @@ -59,7 +59,7 @@ testthat::test_that( app_driver <- app_driver_tm_g_pp_vitals() testthat::expect_equal( - app_driver$get_text("#teal-teal_modules-active_tab .active > a"), + app_driver$get_text("a.nav-link.active"), "Vitals" ) testthat::expect_equal( From 85ac96bc68465939aa4b083c8693dcfd8e18d470 Mon Sep 17 00:00:00 2001 From: Oriol Senan <35930244+osenan@users.noreply.github.com> Date: Thu, 27 Nov 2025 10:45:57 -0300 Subject: [PATCH 29/37] Fix missing failing e2e tests (#1447) # Pull Request Fixes #1440 Companion #1441 This PR contains the remaining failing e2e test of the package. I am based on the issue #1440. According to the issue 4 tests from 4 different test files are failing. I ran the test and found that actually only two of them are failing. Here the screenshot of the other two files that all test are passing: image Please test locally the fixed tests with the following instructions: ``` devtools::load_all() library(shinytest2) source("tests/testthat/helper-TealAppDriver.R") source("tests/testthat/helper-testing-depth.R") testthat::test_file("tests/testthat/test-shinytest2-tm_g_barchart_simple.R) testthat::test_file("tests/testthat/test-shinytest2-tm_t_binary_outcome.R") ``` --------- Signed-off-by: Oriol Senan <35930244+osenan@users.noreply.github.com> Co-authored-by: osenan Co-authored-by: Marcin <133694481+m7pr@users.noreply.github.com> --- tests/testthat/test-shinytest2-tm_g_barchart_simple.R | 2 +- tests/testthat/test-shinytest2-tm_t_binary_outcome.R | 8 +++++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R index 36aa40f94..453e75a64 100644 --- a/tests/testthat/test-shinytest2-tm_g_barchart_simple.R +++ b/tests/testthat/test-shinytest2-tm_g_barchart_simple.R @@ -127,7 +127,7 @@ testthat::test_that("e2e - tm_g_barchart_simple: Module initializes in teal with # Table is rendered asynchronously, wait a bit more app_driver$wait_for_idle() - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("table"))) + testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("table > table"))) app_driver$stop() }) diff --git a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R index c3e2e1fd7..0c5c4ad80 100644 --- a/tests/testthat/test-shinytest2-tm_t_binary_outcome.R +++ b/tests/testthat/test-shinytest2-tm_t_binary_outcome.R @@ -221,11 +221,17 @@ testthat::test_that( testthat::test_that("e2e - tm_t_binary_outcome: Deselection of responders throws validation error.", { skip_if_too_deep(5) app_driver <- app_driver_tm_t_binary_outcome() + testthat::expect_false( + identical( + app_driver$get_text(".shiny-validation-message"), + "`Responders` field is empty" + ) + ) app_driver$set_active_module_input("responders", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() testthat::expect_equal( - app_driver$get_text(app_driver$namespaces(TRUE)$module("responders_input .shiny-validation-message")), + app_driver$get_text(".shiny-validation-message"), "`Responders` field is empty" ) app_driver$stop() From 53c2388545b88e1feac97ca19aaf27b0fbfe3dde Mon Sep 17 00:00:00 2001 From: Marcin <133694481+m7pr@users.noreply.github.com> Date: Thu, 27 Nov 2025 15:42:52 +0100 Subject: [PATCH 30/37] Update DESCRIPTION file with new Remotes link Signed-off-by: Marcin <133694481+m7pr@users.noreply.github.com> --- DESCRIPTION | 1 + 1 file changed, 1 insertion(+) diff --git a/DESCRIPTION b/DESCRIPTION index b0d10c47b..35b588ace 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -84,6 +84,7 @@ VignetteBuilder: rmarkdown Remotes: insightsengineering/teal@bring_tests, + insightsengineering/teal.transform@fix_pipe, insightsengineering/teal.reporter Config/Needs/verdepcheck: insightsengineering/teal, insightsengineering/teal.slice, insightsengineering/teal.transform, From a5af42f9c0e5b8b9c990b22157cc5a608cab0fca Mon Sep 17 00:00:00 2001 From: Marcin <133694481+m7pr@users.noreply.github.com> Date: Thu, 27 Nov 2025 15:49:15 +0100 Subject: [PATCH 31/37] Add branch filter for pull request events Signed-off-by: Marcin <133694481+m7pr@users.noreply.github.com> --- .github/workflows/check.yaml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/.github/workflows/check.yaml b/.github/workflows/check.yaml index 7b1f358c1..80efd07ac 100644 --- a/.github/workflows/check.yaml +++ b/.github/workflows/check.yaml @@ -8,6 +8,8 @@ on: - synchronize - reopened - ready_for_review + branches: + - main push: branches: - main From b0a432d25e171e2a3ceaf7babb3b4985f388fdc7 Mon Sep 17 00:00:00 2001 From: Marcin <133694481+m7pr@users.noreply.github.com> Date: Thu, 27 Nov 2025 15:53:09 +0100 Subject: [PATCH 32/37] Update tests/testthat/test-shinytest2-tm_g_forest_tte.R Signed-off-by: Marcin <133694481+m7pr@users.noreply.github.com> --- tests/testthat/test-shinytest2-tm_g_forest_tte.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_g_forest_tte.R b/tests/testthat/test-shinytest2-tm_g_forest_tte.R index 895749ff9..0568d1e5f 100644 --- a/tests/testthat/test-shinytest2-tm_g_forest_tte.R +++ b/tests/testthat/test-shinytest2-tm_g_forest_tte.R @@ -82,7 +82,7 @@ testthat::test_that("e2e - tm_g_forest_tte: Module initializes in teal without e app_driver$expect_no_validation_error() app_driver$wait_for_idle() testthat::expect_true( - app_driver$is_visible('#teal-teal_modules-nav-forest_survival__e2e_-module-myplot-plot_main') + app_driver$is_visible(app_driver$namespaces(TRUE)$module("myplot-plot_main")) ) app_driver$stop() From 8ca3c3d3d43171adf8ed168e1c172f8cef606a78 Mon Sep 17 00:00:00 2001 From: m7pr Date: Thu, 27 Nov 2025 16:11:53 +0100 Subject: [PATCH 33/37] simplify mmrm --- tests/testthat/test-shinytest2-tm_a_mmrm.R | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) diff --git a/tests/testthat/test-shinytest2-tm_a_mmrm.R b/tests/testthat/test-shinytest2-tm_a_mmrm.R index b21c333a7..f52514419 100644 --- a/tests/testthat/test-shinytest2-tm_a_mmrm.R +++ b/tests/testthat/test-shinytest2-tm_a_mmrm.R @@ -199,9 +199,7 @@ testthat::test_that( app_driver$is_visible(app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main")) ) - plot_selector <- app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main > img") - testthat::expect_true(app_driver$is_visible(plot_selector)) - plot_before <- app_driver$get_attr(plot_selector, "src") + plot_before <- app_driver$get_active_module_plot_output("mmrm_plot") testthat::expect_match(plot_before, "data:image/png;base64,") app_driver$set_active_module_input("g_mmrm_lsmeans_select", "estimates") @@ -222,7 +220,7 @@ testthat::test_that( app_driver$expect_no_validation_error() app_driver$wait_for_idle() - plot <- app_driver$get_attr(plot_selector, "src") + plot <- app_driver$get_active_module_plot_output("mmrm_plot") testthat::expect_match(plot, "data:image/png;base64,") testthat::expect_false(identical(plot_before, plot)) @@ -249,16 +247,14 @@ testthat::test_that( app_driver$is_visible(app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main")) ) - plot_selector <- app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main > img") - testthat::expect_true(app_driver$is_visible(plot_selector)) - plot_before <- app_driver$get_attr(plot_selector, "src") + plot_before <- app_driver$get_active_module_plot_output("mmrm_plot") testthat::expect_match(plot_before, "data:image/png;base64,") app_driver$set_active_module_input("g_mmrm_diagnostic_type", "q-q-residual") app_driver$expect_no_validation_error() app_driver$wait_for_idle() - plot <- app_driver$get_attr(plot_selector, "src") + plot <- app_driver$get_active_module_plot_output("mmrm_plot") testthat::expect_match(plot, "data:image/png;base64,") testthat::expect_false(identical(plot_before, plot)) @@ -527,9 +523,7 @@ for (func in output_functions) { app_driver$is_visible(app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main")) ) - plot_selector <- app_driver$namespaces(TRUE)$module("mmrm_plot-plot_main > img") - testthat::expect_true(app_driver$is_visible(plot_selector)) - plot_before <- app_driver$get_attr(plot_selector, "src") + plot_before <- app_driver$get_active_module_plot_output("mmrm_plot") } else { table_before <- app_driver$get_active_module_table_output("mmrm_table-table-with-settings") } @@ -547,7 +541,7 @@ for (func in output_functions) { # Check output based on function type (plot or table) if (grepl("^g_", func)) { - plot_after <- app_driver$get_attr(plot_selector, "src") + plot_after <- app_driver$get_active_module_plot_output("mmrm_plot") testthat::expect_false( identical(plot_before, plot_after) ) From 63238fd3a40426c7c48f0401c20763d109c39e95 Mon Sep 17 00:00:00 2001 From: m7pr Date: Thu, 27 Nov 2025 16:20:21 +0100 Subject: [PATCH 34/37] revert tests in g_km --- R/tm_g_km.R | 2 +- tests/testthat/test-shinytest2-tm_g_km.R | 18 +++++++++--------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/R/tm_g_km.R b/R/tm_g_km.R index b0a54c401..c1f50bf29 100644 --- a/R/tm_g_km.R +++ b/R/tm_g_km.R @@ -569,7 +569,7 @@ ui_g_km <- function(id, ...) { ) ), bslib::accordion( - open = TRUE, + open = FALSE, bslib::accordion_panel( title = "Additional plot settings", textInput( diff --git a/tests/testthat/test-shinytest2-tm_g_km.R b/tests/testthat/test-shinytest2-tm_g_km.R index 923fd0132..28d50caad 100644 --- a/tests/testthat/test-shinytest2-tm_g_km.R +++ b/tests/testthat/test-shinytest2-tm_g_km.R @@ -314,18 +314,18 @@ testthat::test_that("e2e - tm_g_km: Deselecting {ties_coxph} gives no validation # plot settings --------------------------------------------------------------------------------------------------- -testthat::test_that("e2e - tm_g_km: Starts with uncollapsed additional plot settings.", { +testthat::test_that("e2e - tm_g_km: Starts with collapsed additional plot settings.", { skip_if_too_deep(5) app_driver <- app_driver_tm_g_km() - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xticks"))) - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("yval"))) - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("font_size"))) - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("rel_height_plot"))) - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_ci_ribbon"))) - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_km_table"))) - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("conf_level"))) - testthat::expect_true(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xlab"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xticks"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("yval"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("font_size"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("rel_height_plot"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_ci_ribbon"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("show_km_table"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("conf_level"))) + testthat::expect_false(app_driver$is_visible(app_driver$namespaces(TRUE)$module("xlab"))) testthat::expect_equal(app_driver$get_active_module_input("xticks"), "") testthat::expect_equal(app_driver$get_active_module_input("yval"), "Survival probability") From dd3ede79366dbddc1694867e6de9390eb948a8d0 Mon Sep 17 00:00:00 2001 From: m7pr Date: Fri, 28 Nov 2025 10:52:10 +0100 Subject: [PATCH 35/37] missing prefix --- R/tm_g_barchart_simple.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/tm_g_barchart_simple.R b/R/tm_g_barchart_simple.R index f8f283bfd..37d16e16a 100644 --- a/R/tm_g_barchart_simple.R +++ b/R/tm_g_barchart_simple.R @@ -747,7 +747,7 @@ make_barchart_simple_call <- function(y_name, if (isTRUE(rotate_y_label)) ggplot2_args$theme[["axis.text.y"]] <- quote(ggplot2::element_text(angle = 45, hjust = 1)) if (!is.null(x_name)) { ggplot2_args$labs[["x"]] <- substitute( - expr = column_annotation_label(counts, x_name), + expr = teal.modules.clinical::column_annotation_label(counts, x_name), env = list(x_name = x_name) ) } else { From 5115d620cb50b7674d2c303e591adb82f6ab60df Mon Sep 17 00:00:00 2001 From: Oriol Senan <35930244+osenan@users.noreply.github.com> Date: Fri, 28 Nov 2025 11:41:26 -0300 Subject: [PATCH 36/37] tests: fix selector to correctly validate error message (#1448) # Pull Request Part of #1440 There was an update on the selector. Please run manually with: ``` devtools::load_all() library(shinytest2) source("tests/testthat/helper-TealAppDriver.R") source("tests/testthat/helper-testing-depth.R") testthat::test_file("tests/testthat/test-shinytest2-tm_t_events_by_grade") ``` Co-authored-by: osenan --- tests/testthat/test-shinytest2-tm_t_events_by_grade.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R index 5259f2192..bdfdbffcb 100644 --- a/tests/testthat/test-shinytest2-tm_t_events_by_grade.R +++ b/tests/testthat/test-shinytest2-tm_t_events_by_grade.R @@ -233,7 +233,7 @@ testthat::test_that("e2e - tm_t_events_by_grade: Deselection of grade throws val app_driver$set_active_module_input("grade-dataset_ADAE_singleextract-select", NULL) testthat::expect_identical(app_driver$get_active_module_table_output("table-table-with-settings"), data.frame()) app_driver$expect_validation_error() - selector <- "arm_var-dataset_ADSL_singleextract-select_input .shiny-validation-message" + selector <- "grade-dataset_ADAE_singleextract-select_input .shiny-validation-message" testthat::expect_equal( app_driver$get_text(app_driver$namespaces(TRUE)$module(selector)), "An event grade is required" From 01af5a0f3ac48158ebab177308eff95041bb39f3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20Ver=C3=ADssimo?= <211358+averissimo@users.noreply.github.com> Date: Wed, 3 Dec 2025 11:13:46 +0100 Subject: [PATCH 37/37] Apply suggestion from @averissimo MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: André Veríssimo <211358+averissimo@users.noreply.github.com> --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 35b588ace..ce4534115 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -84,7 +84,7 @@ VignetteBuilder: rmarkdown Remotes: insightsengineering/teal@bring_tests, - insightsengineering/teal.transform@fix_pipe, + insightsengineering/teal.transform, insightsengineering/teal.reporter Config/Needs/verdepcheck: insightsengineering/teal, insightsengineering/teal.slice, insightsengineering/teal.transform,