From 43931ed987a37dc0833422b9d585fc59449f1a7a Mon Sep 17 00:00:00 2001 From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com> Date: Wed, 13 Nov 2024 16:45:05 -0500 Subject: [PATCH] Update test-mod_main_sidebar.R --- tests/testthat/test-mod_main_sidebar.R | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-mod_main_sidebar.R b/tests/testthat/test-mod_main_sidebar.R index 1b5931a1..ef63410d 100644 --- a/tests/testthat/test-mod_main_sidebar.R +++ b/tests/testthat/test-mod_main_sidebar.R @@ -55,7 +55,8 @@ describe( dplyr::mutate( reviewed = "No", status = "new", - comment = "" + comment = "", + id = dplyr::row_number() ) vars <- get_meta_vars(appdata, metadata) apptables <- lapply( @@ -123,8 +124,12 @@ describe( r = reactiveValues( create_query = 0, review_data = data.frame( + "id" = 1L, "subject_id" = "NLD_06_755", + "event_name" = "Any visit", "item_group" = "Adverse events", + "form_repeat" = 1L, + "item_name" = "AE item", "edit_date_time" = "2023-01-01", "reviewed" = "", "comment" = "",