update (#179)

Author: shajoezhu

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

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",

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(