diff --git a/DESCRIPTION b/DESCRIPTION index 1ecbd6d2bb..1da15e87dd 100644 --- 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", , "joe.zhu@roche.com", role = c("aut", "cre")), person("Daniel", "Sabanés Bové", , "daniel.sabanes_bove@roche.com", role = "aut"), diff --git a/NEWS.md b/NEWS.md index f85ed6e9fc..54c4b65b60 100644 --- 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 index eb48c8c0d5..b1485847d6 100644 --- 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 index 6be9db65be..98d272d21a 100644 --- a/man/d_count_cumulative.Rd +++ b/man/d_count_cumulative.Rd @@ -4,7 +4,7 @@ \alias{d_count_cumulative} \title{Description of cumulative count} \usage{ -d_count_cumulative(threshold, lower_tail, include_eq) +d_count_cumulative(threshold, lower_tail = TRUE, include_eq = TRUE) } \arguments{ \item{threshold}{(\code{numeric(1)})\cr a cutoff value as threshold to count values of \code{x}.}