From fe05a6e49e7b7e907ab573ea7af5140182ce5aa7 Mon Sep 17 00:00:00 2001
From: Joe Zhu <sha.joe.zhu@gmail.com>
Date: Fri, 17 Jan 2025 16:39:45 +0800
Subject: [PATCH] update (#179)

---
 DESCRIPTION                             | 4 ++--
 tests/testthat/test-table_disclosures.R | 2 +-
 tests/testthat/test-table_dort01.R      | 8 ++++----
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 7bc68889..a5b485d7 100644
--- 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
index b6ade156..e2977d76 100644
--- 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
index 6b5a98a4..3f758a1b 100644
--- 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(