update (#179)

insightsengineering · Jan 17, 2025 · fe05a6e · fe05a6e
1 parent b5403da
commit fe05a6e
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -25,7 +25,7 @@ Depends:
     R (>= 4.2),
     rlistings (>= 0.2.10),
     rtables (>= 0.6.11),
-    tern (>= 0.9.6.9018)
+    tern (>= 0.9.7)
 Imports:
     pharmaverseadam (>= 1.1.0),
     random.cdisc.data (>= 0.3.16)
@@ -46,7 +46,7 @@ VignetteBuilder:
     knitr
 Remotes:
     insightsengineering/rtables@main,
-    insightsengineering/tern@main,
+    insightsengineering/tern@1281_cran_0.9.7,
     pharmaverse/pharmaverseadam@main
 biocViews:
 Config/Needs/website: insightsengineering/nesttemplate

diff --git a/tests/testthat/test-table_disclosures.R b/tests/testthat/test-table_disclosures.R
@@ -94,7 +94,7 @@ testthat::test_that("Patient Disposition table is produced correctly", {
       "DISCSTUD",
       values = "Y",
       .labels = c(count_fraction = "Discontinued Study"),
-      .formats = "xx (xx.xx%)"
+      .formats = c(count_fraction = "xx (xx.xx%)"),
     ) %>%
     analyze_vars(
       "DCSREAS",

diff --git a/tests/testthat/test-table_dort01.R b/tests/testthat/test-table_dort01.R
@@ -32,7 +32,7 @@ testthat::test_that("DORT01 variant 1 is produced correctly", {
     count_values(
       vars = "USUBJID",
       values = unique(adtte$USUBJID),
-      .labels = "Responders",
+      .labels = c(count = "Responders"),
       .stats = "count"
     ) %>%
     analyze_vars(
@@ -87,7 +87,7 @@ testthat::test_that("DORT01 variant 2 (selecting sectons) is produced correctly"
     count_values(
       vars = "USUBJID",
       values = unique(adtte$USUBJID),
-      .labels = "Responders",
+      .labels = c(count = "Responders"),
       .stats = "count"
     ) %>%
     analyze_vars(
@@ -143,7 +143,7 @@ testthat::test_that("DORT01 variant 3 (modifying conftype and alpha level) is pr
     count_values(
       vars = "USUBJID",
       values = unique(adtte$USUBJID),
-      .labels = "Responders",
+      .labels = c(count = "Responders"),
       .stats = "count"
     ) %>%
     analyze_vars(
@@ -199,7 +199,7 @@ testthat::test_that("DORT01 variant 4 (modifying time point for the “xx durati
     count_values(
       vars = "USUBJID",
       values = unique(adtte$USUBJID),
-      .labels = "Responders",
+      .labels = c(count = "Responders"),
       .stats = "count"
     ) %>%
     analyze_vars(