diff --git a/R/revision_analysis.R b/R/revision_analysis.R index 86210eff..fc057c56 100644 --- a/R/revision_analysis.R +++ b/R/revision_analysis.R @@ -233,7 +233,7 @@ print.revision_analysis <- function(x, } if (is.null(abs_spread_threshold)) abs_spread_threshold <- .05 * x$max_val rev_beh <- x$revision_behavior - cli::cli_h2("An epi_archive spanning {.val {x$range_time_values[1]}} to {.val {x$range_time_values[1]}}.") + cli::cli_h2("An epi_archive spanning {.val {x$range_time_values[1]}} to {.val {x$range_time_values[2]}}.") cli::cli_h3("Min lag (time to first version):") time_delta_summary(rev_beh$min_lag, x$time_type) %>% print() if (!x$drop_nas) { diff --git a/tests/testthat/_snaps/revision-latency-functions.md b/tests/testthat/_snaps/revision-latency-functions.md index 1fbbbe06..424dff11 100644 --- a/tests/testthat/_snaps/revision-latency-functions.md +++ b/tests/testthat/_snaps/revision-latency-functions.md @@ -4,7 +4,7 @@ rs1 Message - -- An epi_archive spanning 2020-01-01 to 2020-01-01. -- + -- An epi_archive spanning 2020-01-01 to 2020-01-04. -- -- Min lag (time to first version): Output @@ -62,7 +62,7 @@ rs2 Message - -- An epi_archive spanning 2020-01-01 to 2020-01-01. -- + -- An epi_archive spanning 2020-01-01 to 2020-01-04. -- -- Min lag (time to first version): Output @@ -122,7 +122,7 @@ rs3 Message - -- An epi_archive spanning 2020-01-01 to 2020-01-01. -- + -- An epi_archive spanning 2020-01-01 to 2020-01-22. -- -- Min lag (time to first version): Output @@ -182,7 +182,7 @@ rs4 Message - -- An epi_archive spanning 2020 Jan to 2020 Jan. -- + -- An epi_archive spanning 2020 Jan to 2020 Apr. -- -- Min lag (time to first version): Output @@ -242,7 +242,7 @@ print(rs5, quick_revision = 3) Message - -- An epi_archive spanning 1 to 1. -- + -- An epi_archive spanning 1 to 4. -- -- Min lag (time to first version): Output