From 0de2d45401349e1b5f983b3ee8cb95c403ee7f00 Mon Sep 17 00:00:00 2001 From: munoztd0 Date: Thu, 5 Mar 2026 15:13:54 +0100 Subject: [PATCH 1/4] update: change the column alignment, and see how much it can change --- tests/testthat/source_code/lsfae01.R | 5 ++++- tests/testthat/source_code/tsfae09.R | 4 +++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/tests/testthat/source_code/lsfae01.R b/tests/testthat/source_code/lsfae01.R index 861bd2b6..5cf9a17d 100644 --- a/tests/testthat/source_code/lsfae01.R +++ b/tests/testthat/source_code/lsfae01.R @@ -208,4 +208,7 @@ result <- set_titles(result, tab_titles) # Output listing ############################################################################### -tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape") +tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape", + alignments = list( + list(row = 1:105, col = 1:8, value = "right") + )) \ No newline at end of file diff --git a/tests/testthat/source_code/tsfae09.R b/tests/testthat/source_code/tsfae09.R index f26a720e..cdfde94b 100644 --- a/tests/testthat/source_code/tsfae09.R +++ b/tests/testthat/source_code/tsfae09.R @@ -194,4 +194,6 @@ result <- set_titles(result, tab_titles) # Convert to tbl file and output table ################################################################################ -tt_to_tlgrtf(result, file = fileid, orientation = "landscape") +tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape", alignments =list( + list(row = 1:10, col =1:4, value = "left") + )) From 022e08e559d608968a29818369ba835ee2b8258d Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Thu, 5 Mar 2026 14:21:17 +0000 Subject: [PATCH 2/4] [skip style] [skip vbump] Restyle files --- tests/testthat/source_code/lsfae01.R | 6 ++++-- tests/testthat/source_code/tsfae09.R | 6 +++--- tests/testthat/source_code/tsidem01.R | 15 +++++++++------ 3 files changed, 16 insertions(+), 11 deletions(-) diff --git a/tests/testthat/source_code/lsfae01.R b/tests/testthat/source_code/lsfae01.R index 5cf9a17d..bbec34df 100644 --- a/tests/testthat/source_code/lsfae01.R +++ b/tests/testthat/source_code/lsfae01.R @@ -208,7 +208,9 @@ result <- set_titles(result, tab_titles) # Output listing ############################################################################### -tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape", +tt_to_tlgrtf(head(result, 100), + file = fileid, orientation = "landscape", alignments = list( list(row = 1:105, col = 1:8, value = "right") - )) \ No newline at end of file + ) +) diff --git a/tests/testthat/source_code/tsfae09.R b/tests/testthat/source_code/tsfae09.R index cdfde94b..fea799f3 100644 --- a/tests/testthat/source_code/tsfae09.R +++ b/tests/testthat/source_code/tsfae09.R @@ -194,6 +194,6 @@ result <- set_titles(result, tab_titles) # Convert to tbl file and output table ################################################################################ -tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape", alignments =list( - list(row = 1:10, col =1:4, value = "left") - )) +tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape", alignments = list( + list(row = 1:10, col = 1:4, value = "left") +)) diff --git a/tests/testthat/source_code/tsidem01.R b/tests/testthat/source_code/tsidem01.R index bb9ce26b..b3fd519d 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, From dbfc4ff3c43a366aff6684d1d8abecb68cce3324 Mon Sep 17 00:00:00 2001 From: munoztd0 Date: Fri, 6 Mar 2026 15:35:38 +0100 Subject: [PATCH 3/4] fix: out of bounds --- tests/testthat/source_code/lsfae01.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/source_code/lsfae01.R b/tests/testthat/source_code/lsfae01.R index 5cf9a17d..e30848b8 100644 --- a/tests/testthat/source_code/lsfae01.R +++ b/tests/testthat/source_code/lsfae01.R @@ -210,5 +210,5 @@ result <- set_titles(result, tab_titles) tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape", alignments = list( - list(row = 1:105, col = 1:8, value = "right") + list(row = 1:100, col = 1:8, value = "left") )) \ No newline at end of file From e57bf171ee337f5b9cd7de03187885168595cf84 Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Fri, 6 Mar 2026 14:44:42 +0000 Subject: [PATCH 4/4] [skip style] [skip vbump] Restyle files --- tests/testthat/source_code/lsfae01.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/testthat/source_code/lsfae01.R b/tests/testthat/source_code/lsfae01.R index e30848b8..696c0c0f 100644 --- a/tests/testthat/source_code/lsfae01.R +++ b/tests/testthat/source_code/lsfae01.R @@ -208,7 +208,9 @@ result <- set_titles(result, tab_titles) # Output listing ############################################################################### -tt_to_tlgrtf(head(result, 100), file = fileid, orientation = "landscape", +tt_to_tlgrtf(head(result, 100), + file = fileid, orientation = "landscape", alignments = list( list(row = 1:100, col = 1:8, value = "left") - )) \ No newline at end of file + ) +)