Merge branch 'main' into 1265_fix_typo@main

insightsengineering · Jul 12, 2024 · 06e6baa · 06e6baa
2 parents c4935db + 99f9c3d
commit 06e6baa
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: tern
 Title: Create Common TLGs Used in Clinical Trials
-Version: 0.9.5.9003
-Date: 2024-07-01
+Version: 0.9.5.9004
+Date: 2024-07-10
 Authors@R: c(
     person("Joe", "Zhu", , "[email protected]", role = c("aut", "cre")),
     person("Daniel", "Sabanés Bové", , "[email protected]", role = "aut"),

diff --git a/NEWS.md b/NEWS.md
@@ -1,9 +1,10 @@
-# tern 0.9.5.9003
+# tern 0.9.5.9004
 ### Enhancements
 * Added `errorbar_width` and `linetype` parameters to `g_lineplot`.
 
 ### Bug Fixes
 * Fixed a bug in `a_surv_time` that threw an error when split only has `"is_event"`.
+* Added defaults for `d_count_cumulative` parameters as described in the documentation.
 * Empty levels on `g_lineplot` x-axis are not shown in either plots.
 * Fixed disappearing line in `g_lineplot` when using only one group or strata level.
 

diff --git a/R/count_cumulative.R b/R/count_cumulative.R
@@ -86,7 +86,7 @@ h_count_cumulative <- function(x,
 #' @return Labels for [s_count_cumulative()].
 #'
 #' @export
-d_count_cumulative <- function(threshold, lower_tail, include_eq) {
+d_count_cumulative <- function(threshold, lower_tail = TRUE, include_eq = TRUE) {
   checkmate::assert_numeric(threshold)
   lg <- if (lower_tail) "<" else ">"
   eq <- if (include_eq) "=" else ""

diff --git a/man/d_count_cumulative.Rd b/man/d_count_cumulative.Rd