diff --git a/R/coh_effectiveness.R b/R/coh_effectiveness.R index 61a9baa..1e6f11d 100644 --- a/R/coh_effectiveness.R +++ b/R/coh_effectiveness.R @@ -80,7 +80,7 @@ effectiveness <- function(vaccineff_data, end_cohort = vaccineff_data$end_cohort, at = at ) - + eff_obj <- coh_eff_hr( data_set = data_set, outcome_status_col = "outcome_status", diff --git a/tests/testthat/test-coh_match_iterate.R b/tests/testthat/test-coh_match_iterate.R index 0236ba3..8b17c7e 100644 --- a/tests/testthat/test-coh_match_iterate.R +++ b/tests/testthat/test-coh_match_iterate.R @@ -50,8 +50,7 @@ adjusted_0 <- adjust_exposition(matched_cohort = matched, censoring_date_col = censoring_date_col, immunization_date = immunization_date_col, start_cohort = start_cohort, - end_cohort = end_cohort -) + end_cohort = end_cohort) # Test for basic expectations and correctness of algorithm test_that("`rematch`: Correctness", { @@ -209,7 +208,8 @@ test_that("`rematch`: tryCatch error handle", { end_cohort = end_cohort, im = 0 ), - regexp = "Error at iteration 0 for v: No matches were found.- skipping to next" + regexp = paste0("Error at iteration 0 for v: No matches were found.", + "- skipping to next") ) })