Merge pull request #663 from cmu-delphi/tiny_revision_printing_fix

printing for revision analysis off

Author: brookslogan

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) {

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