diff --git a/.github/workflows/docs.yaml b/.github/workflows/docs.yaml index 6b3ad6634..7101615f7 100644 --- a/.github/workflows/docs.yaml +++ b/.github/workflows/docs.yaml @@ -22,6 +22,8 @@ jobs: secrets: REPO_GITHUB_TOKEN: ${{ secrets.REPO_GITHUB_TOKEN }} with: - sd-direction: upstream + deps-installation-method: setup-r-dependencies + lookup-refs: | + insightsengineering/formatters default-landing-page: latest-tag additional-unit-test-report-directories: unit-test-report-non-cran diff --git a/DESCRIPTION b/DESCRIPTION index c1fe9aa5f..bab8590da 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -29,7 +29,7 @@ URL: https://github.com/insightsengineering/rtables, https://insightsengineering.github.io/rtables/ BugReports: https://github.com/insightsengineering/rtables/issues Depends: - formatters (>= 0.5.9), + formatters (>= 0.5.9.9004), magrittr (>= 1.5), methods, R (>= 2.10) diff --git a/tests/testthat/test-printing.R b/tests/testthat/test-printing.R index 20490f1b5..74b4ca3b5 100644 --- a/tests/testthat/test-printing.R +++ b/tests/testthat/test-printing.R @@ -656,17 +656,25 @@ test_that("row label indentation is kept even if there are newline characters", test_that("Support for newline characters in all the parts", { out <- strsplit(toString(tt_for_nl, hsep = "-"), "\\n")[[1]] + mf <- matrix_form(tt_for_nl, TRUE) + + # topleft is correctly aligned + expect_equal( + mf$strings[seq(mf_nlheader(mf)), 1], + unlist(strsplit(paste0(top_left(tt_for_nl), collapse = "\n"), "\n")) + ) + expected <- c( "why not", "also here", "", "---------------------------------", " ", - " ARM ", - " ", - "a A ", - "b A wo", - "d TWO ", + "a ARM ", + "b ", + "d A ", + " A wo", + " TWO ", "c words rd ", "---------------------------------", "m ",