From 2b6433d3d58849ff645066859ef979759225c738 Mon Sep 17 00:00:00 2001 From: munoztd0 Date: Fri, 6 Mar 2026 15:52:56 +0100 Subject: [PATCH 1/2] change: spurious change to tsids01 to test true positive rtf diffs --- tests/testthat/source_code/tsids01.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/source_code/tsids01.R b/tests/testthat/source_code/tsids01.R index cefeed1e..fd5d9d6b 100644 --- a/tests/testthat/source_code/tsids01.R +++ b/tests/testthat/source_code/tsids01.R @@ -84,7 +84,7 @@ lyt <- basic_table( summarize_num_patients( var = "USUBJID", .stats = "unique", - .formats = c("unique" = jjcsformat_count_fraction), + .formats = c("unique" = "xx (xx.xx%)"), .labels = c(unique = "Screening failures") ) %>% count_occurrences( From b209e4683ce7efecd7c7e49a8dd3377efc49d4e1 Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Fri, 6 Mar 2026 14:57:35 +0000 Subject: [PATCH 2/2] [skip style] [skip vbump] Restyle files --- tests/testthat/source_code/lsfecg02.R | 9 ++++++--- tests/testthat/source_code/lsfvit02.R | 3 ++- tests/testthat/source_code/lsids04.R | 2 +- tests/testthat/source_code/tsfae21a.R | 3 ++- tests/testthat/source_code/tsfae21b.R | 3 ++- tests/testthat/source_code/tsfae21c.R | 3 ++- tests/testthat/source_code/tsfae21d.R | 3 ++- tests/testthat/source_code/tsfae22a.R | 3 ++- tests/testthat/source_code/tsfae22b.R | 3 ++- tests/testthat/source_code/tsfae22c.R | 3 ++- tests/testthat/source_code/tsfae24d.R | 3 ++- tests/testthat/source_code/tsfae24f.R | 3 ++- tests/testthat/source_code/tsfecg01.R | 3 ++- tests/testthat/source_code/tsfecg01a.R | 3 ++- tests/testthat/source_code/tsflab01.R | 16 +++++++++------- tests/testthat/source_code/tsflab01a.R | 16 +++++++++------- tests/testthat/source_code/tsflab02.R | 2 +- tests/testthat/source_code/tsflab02a.R | 3 --- tests/testthat/source_code/tsflab02b.R | 3 ++- tests/testthat/source_code/tsfvit01.R | 3 ++- tests/testthat/source_code/tsfvit01a.R | 3 ++- tests/testthat/source_code/tsidem01.R | 15 +++++++++------ 22 files changed, 65 insertions(+), 43 deletions(-) diff --git a/tests/testthat/source_code/lsfecg02.R b/tests/testthat/source_code/lsfecg02.R index 67c171c2..db046334 100644 --- a/tests/testthat/source_code/lsfecg02.R +++ b/tests/testthat/source_code/lsfecg02.R @@ -210,7 +210,8 @@ result1 <- result %>% colwidth <- c(21, 13, 18, 38, 75, 15, 50, 24, 15, 14) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, head(result1, 100), file = paste0(fileid, "PART1OF3"), orientation = "landscape" @@ -221,7 +222,8 @@ result2 <- result %>% colwidth <- c(21, 13, 18, 29, 74, 27, 50, 24, 15, 14) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, head(result2, 100), file = paste0(fileid, "PART2OF3"), orientation = "landscape" @@ -232,7 +234,8 @@ result3 <- result %>% colwidth <- c(18, 13, 18, 41, 75, 16, 50, 24, 15, 14) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, head(result3, 100), file = paste0(fileid, "PART3OF3"), orientation = "landscape" diff --git a/tests/testthat/source_code/lsfvit02.R b/tests/testthat/source_code/lsfvit02.R index fc8a012f..02bd24a1 100644 --- a/tests/testthat/source_code/lsfvit02.R +++ b/tests/testthat/source_code/lsfvit02.R @@ -200,7 +200,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(21, 13, 18, 31, 74, 18, 50, 26, 15, 19) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, head(result, 100), file = paste0(fileid), orientation = "landscape" diff --git a/tests/testthat/source_code/lsids04.R b/tests/testthat/source_code/lsids04.R index ab3c5a8c..b5eac9d3 100644 --- a/tests/testthat/source_code/lsids04.R +++ b/tests/testthat/source_code/lsids04.R @@ -97,6 +97,6 @@ result <- set_titles(result, tab_titles) # Output listing ############################################################################### -colwidth <- c(21, 13, 18,23) +colwidth <- c(21, 13, 18, 23) tt_to_tlgrtf(colwidths = colwidth, head(result, 100), file = fileid, orientation = "landscape") diff --git a/tests/testthat/source_code/tsfae21a.R b/tests/testthat/source_code/tsfae21a.R index cf727755..9d427806 100644 --- a/tests/testthat/source_code/tsfae21a.R +++ b/tests/testthat/source_code/tsfae21a.R @@ -303,7 +303,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 21, 21, 21, 21, 21, 17, 23, 21, 21, 17, 21, 21, 19, 17) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "portrait", diff --git a/tests/testthat/source_code/tsfae21b.R b/tests/testthat/source_code/tsfae21b.R index 4ce53168..179bd87f 100644 --- a/tests/testthat/source_code/tsfae21b.R +++ b/tests/testthat/source_code/tsfae21b.R @@ -329,7 +329,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 17, 19, 17, 21, 21, 21, 17, 17, 17, 21, 19, 23, 17, 19, 17, 21, 21, 21, 17, 17, 17, 17, 17) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "landscape", diff --git a/tests/testthat/source_code/tsfae21c.R b/tests/testthat/source_code/tsfae21c.R index 1e5c91a9..088ac80e 100644 --- a/tests/testthat/source_code/tsfae21c.R +++ b/tests/testthat/source_code/tsfae21c.R @@ -232,7 +232,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 21, 23, 21) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "portrait", diff --git a/tests/testthat/source_code/tsfae21d.R b/tests/testthat/source_code/tsfae21d.R index b25da142..92910805 100644 --- a/tests/testthat/source_code/tsfae21d.R +++ b/tests/testthat/source_code/tsfae21d.R @@ -246,7 +246,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 21, 23, 21) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "portrait", diff --git a/tests/testthat/source_code/tsfae22a.R b/tests/testthat/source_code/tsfae22a.R index e8c52609..4adcd56f 100644 --- a/tests/testthat/source_code/tsfae22a.R +++ b/tests/testthat/source_code/tsfae22a.R @@ -295,7 +295,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 21, 21, 23, 21, 21, 19, 19, 19, 21, 21, 21, 19, 21, 21, 21, 19, 19, 19, 21) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "portrait", diff --git a/tests/testthat/source_code/tsfae22b.R b/tests/testthat/source_code/tsfae22b.R index fc07ecfe..07d2665e 100644 --- a/tests/testthat/source_code/tsfae22b.R +++ b/tests/testthat/source_code/tsfae22b.R @@ -281,7 +281,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 21, 21, 21, 21, 21, 23, 21, 21, 21, 21, 21) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "portrait", diff --git a/tests/testthat/source_code/tsfae22c.R b/tests/testthat/source_code/tsfae22c.R index d95c4ea7..567b7241 100644 --- a/tests/testthat/source_code/tsfae22c.R +++ b/tests/testthat/source_code/tsfae22c.R @@ -273,7 +273,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 21, 21, 23, 21, 21, 21, 21, 23, 23, 21, 21, 21, 19, 21, 21) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "portrait", diff --git a/tests/testthat/source_code/tsfae24d.R b/tests/testthat/source_code/tsfae24d.R index 91434df6..1f0fc4c1 100644 --- a/tests/testthat/source_code/tsfae24d.R +++ b/tests/testthat/source_code/tsfae24d.R @@ -203,7 +203,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 21, 21, 21, 23, 21, 21, 21) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "landscape", diff --git a/tests/testthat/source_code/tsfae24f.R b/tests/testthat/source_code/tsfae24f.R index a360b309..37b782cc 100644 --- a/tests/testthat/source_code/tsfae24f.R +++ b/tests/testthat/source_code/tsfae24f.R @@ -247,7 +247,8 @@ result <- set_titles(result, tab_titles) colwidth <- c(64, 21, 17, 21, 19, 21, 23, 21, 21, 21, 21, 21, 19, 21, 19, 17, 19, 21, 19) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "landscape", diff --git a/tests/testthat/source_code/tsfecg01.R b/tests/testthat/source_code/tsfecg01.R index 374caca4..4eff1e98 100644 --- a/tests/testthat/source_code/tsfecg01.R +++ b/tests/testthat/source_code/tsfecg01.R @@ -353,7 +353,8 @@ result <- set_titles(result, titles) colwidth <- c(56, 29, 36, 39, 29, 36, 41, 29, 36, 37, 41, 41) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, nosplitin = list(cols = c(trtvar, "rrisk_header")), diff --git a/tests/testthat/source_code/tsfecg01a.R b/tests/testthat/source_code/tsfecg01a.R index cbbaf743..53e311c2 100644 --- a/tests/testthat/source_code/tsfecg01a.R +++ b/tests/testthat/source_code/tsfecg01a.R @@ -439,7 +439,8 @@ result <- set_titles(result, titles) colwidth <- c(56, 29, 36, 41, 29, 36, 41, 29, 36, 41, 41, 41) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, nosplitin = list(cols = c(trtvar, "rrisk_header")), diff --git a/tests/testthat/source_code/tsflab01.R b/tests/testthat/source_code/tsflab01.R index d52d6e46..3f258854 100644 --- a/tests/testthat/source_code/tsflab01.R +++ b/tests/testthat/source_code/tsflab01.R @@ -565,7 +565,8 @@ build_result_parcat3 <- function( ### add the proper abbreviation to the tblid, and add opath path fileid <- write_path(opath, tblidx) - tt_to_tlgrtf(colwidths = colwidth, + tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "landscape", @@ -595,9 +596,10 @@ result <- build_result_parcat3(PARCAT3sel = "General chemistry", tblid = tblid, colwidth <- c(34, 27, 42, 47, 27, 42, 47, 27, 42, 49, 47, 47) -tt_to_tlgrtf(colwidths = colwidth, - result, - file = fileid, - orientation = "landscape", - nosplitin = list(cols = c(trtvar, "rrisk_header")) - ) \ No newline at end of file +tt_to_tlgrtf( + colwidths = colwidth, + result, + file = fileid, + orientation = "landscape", + nosplitin = list(cols = c(trtvar, "rrisk_header")) +) diff --git a/tests/testthat/source_code/tsflab01a.R b/tests/testthat/source_code/tsflab01a.R index 43766948..aaff3455 100644 --- a/tests/testthat/source_code/tsflab01a.R +++ b/tests/testthat/source_code/tsflab01a.R @@ -661,7 +661,8 @@ build_result_parcat3 <- function( ### add the proper abbreviation to the tblid, and add opath path fileid <- write_path(opath, tblidx) - tt_to_tlgrtf(colwidths = colwidth, + tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, orientation = "landscape", @@ -721,9 +722,10 @@ result <- build_result_parcat3(PARCAT3sel = "General chemistry", tblid = tblid, colwidth <- c(39, 29, 46, 47, 29, 46, 47, 29, 46, 48, 47, 49) -tt_to_tlgrtf(colwidths = colwidth, - result, - file = fileid, - orientation = "landscape", - nosplitin = list(cols = c(trtvar, "rrisk_header")) - ) +tt_to_tlgrtf( + colwidths = colwidth, + result, + file = fileid, + orientation = "landscape", + nosplitin = list(cols = c(trtvar, "rrisk_header")) +) diff --git a/tests/testthat/source_code/tsflab02.R b/tests/testthat/source_code/tsflab02.R index 5d254957..c91a596d 100644 --- a/tests/testthat/source_code/tsflab02.R +++ b/tests/testthat/source_code/tsflab02.R @@ -588,4 +588,4 @@ result <- build_result_parcat3(PARCAT3sel = "General chemistry", tblid = tblid, colwidth <- c(45, 21, 21, 21, 30, 30) -tt_to_tlgrtf(colwidths = colwidth, result, file = fileid, orientation = "landscape") \ No newline at end of file +tt_to_tlgrtf(colwidths = colwidth, result, file = fileid, orientation = "landscape") diff --git a/tests/testthat/source_code/tsflab02a.R b/tests/testthat/source_code/tsflab02a.R index 021827a1..d51c01b2 100644 --- a/tests/testthat/source_code/tsflab02a.R +++ b/tests/testthat/source_code/tsflab02a.R @@ -640,6 +640,3 @@ result <- build_result_parcat3( colwidth <- c(47, 21, 21, 19, 35, 35) tt_to_tlgrtf(colwidths = colwidth, result, file = fileid, orientation = "landscape") - - - diff --git a/tests/testthat/source_code/tsflab02b.R b/tests/testthat/source_code/tsflab02b.R index 57c79885..d3e10040 100644 --- a/tests/testthat/source_code/tsflab02b.R +++ b/tests/testthat/source_code/tsflab02b.R @@ -656,7 +656,8 @@ build_result_parcat3 <- function( result <- build_result_parcat3( PARCAT3sel = "General chemistry", tblid = tblid, - save2rtf = FALSE) + save2rtf = FALSE +) colwidth <- c(49, 19, 19, 19, 33, 33) diff --git a/tests/testthat/source_code/tsfvit01.R b/tests/testthat/source_code/tsfvit01.R index 265e3b9d..4612379b 100644 --- a/tests/testthat/source_code/tsfvit01.R +++ b/tests/testthat/source_code/tsfvit01.R @@ -352,7 +352,8 @@ result <- set_titles(result, titles) colwidth <- c(54, 29, 54, 51, 29, 54, 47, 29, 54, 49, 51, 44) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, nosplitin = list(cols = c(trtvar, "rrisk_header")), diff --git a/tests/testthat/source_code/tsfvit01a.R b/tests/testthat/source_code/tsfvit01a.R index 5c3f124f..645a50f1 100644 --- a/tests/testthat/source_code/tsfvit01a.R +++ b/tests/testthat/source_code/tsfvit01a.R @@ -431,7 +431,8 @@ result <- set_titles(result, titles) colwidth <- c(56, 29, 60, 59, 29, 60, 57, 29, 60, 57, 57, 57) -tt_to_tlgrtf(colwidths = colwidth, +tt_to_tlgrtf( + colwidths = colwidth, result, file = fileid, nosplitin = list(cols = c(trtvar, "rrisk_header")), diff --git a/tests/testthat/source_code/tsidem01.R b/tests/testthat/source_code/tsidem01.R index a154c5c2..d4dab9a9 100644 --- a/tests/testthat/source_code/tsidem01.R +++ b/tests/testthat/source_code/tsidem01.R @@ -232,8 +232,9 @@ lyt <- basic_table( .stats = c("n", "mean_sd", "median", "range", "count_fraction"), .labels = c("n" = "N", "range" = "Min, max"), .formats = c(P1_precision, - n = jjcsformat_xx("xx"), - "count_fraction" = jjcsformat_count_fraction), + n = jjcsformat_xx("xx"), + "count_fraction" = jjcsformat_count_fraction + ), .indent_mods = c( "n" = 0L, "mean_sd" = 1L, @@ -265,8 +266,9 @@ lyt <- basic_table( .stats = c("n", "mean_sd", "median", "range", "count_fraction"), .labels = c("n" = "N", "range" = "Min, max"), .formats = c(P2a_precision, - n = jjcsformat_xx("xx"), - "count_fraction" = jjcsformat_count_fraction), + n = jjcsformat_xx("xx"), + "count_fraction" = jjcsformat_count_fraction + ), .indent_mods = c( "n" = 0L, "mean_sd" = 1L, @@ -285,8 +287,9 @@ lyt <- basic_table( .stats = c("n", "mean_sd", "median", "range", "count_fraction"), .labels = c("n" = "N", "range" = "Min, max"), .formats = c(P2b_precision, - n = jjcsformat_xx("xx"), - "count_fraction" = jjcsformat_count_fraction), + n = jjcsformat_xx("xx"), + "count_fraction" = jjcsformat_count_fraction + ), .indent_mods = c( "n" = 0L, "mean_sd" = 1L,