printing for revision analysis off

dsweber2 · dsweber2 · commit 65f907ea5e95 · 2025-04-18T15:26:50.000-05:00
diff --git 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) {

Original file line number	Diff line number	Diff line change
`@@ -233,7 +233,7 @@ print.revision_analysis <- function(x,`
`233`	`233`	`}`
`234`	`234`	`if (is.null(abs_spread_threshold)) abs_spread_threshold <- .05 * x$max_val`
`235`	`235`	`rev_beh <- x$revision_behavior`
`236`		`- cli::cli_h2("An epi_archive spanning {.val {x$range_time_values[1]}} to {.val {x$range_time_values[1]}}.")`
	`236`	`+ cli::cli_h2("An epi_archive spanning {.val {x$range_time_values[1]}} to {.val {x$range_time_values[2]}}.")`
`237`	`237`	`cli::cli_h3("Min lag (time to first version):")`
`238`	`238`	`time_delta_summary(rev_beh$min_lag, x$time_type) %>% print()`
`239`	`239`	`if (!x$drop_nas) {`