From cb513d9b0767e91b373d671afa93d316ae999bbb Mon Sep 17 00:00:00 2001 From: Emily de la Rua Date: Mon, 23 Sep 2024 19:39:03 -0400 Subject: [PATCH] Update n_events check --- R/incidence_rate.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/incidence_rate.R b/R/incidence_rate.R index a4d7169559..fd26d48656 100644 --- a/R/incidence_rate.R +++ b/R/incidence_rate.R @@ -63,10 +63,12 @@ s_incidence_rate <- function(df, id_var = "USUBJID", control = control_incidence_rate()) { if (lifecycle::is_present(is_event)) { + checkmate::assert_string(is_event) lifecycle::deprecate_warn( "0.9.6", "s_incidence_rate(is_event)", "s_incidence_rate(n_events)" ) - n_events <- as.numeric(is_event) + n_events <- is_event + df[[n_events]] <- as.numeric(df[[is_event]]) } assert_df_with_variables(df, list(tte = .var, n_events = n_events))