Fixup formatting on merge fixup

Author: lcbrooks

R/archive.R

@@ -413,10 +413,8 @@ epi_archive =
               min_time = Min(self$DT$time_value)
               max_time = Max(self$DT$time_value)
             }
-            cat(sprintf("* %-14s = %s\n", "min time value",
-                          min_time))
-            cat(sprintf("* %-14s = %s\n", "max time value",
-                        max_time))
+            cat(sprintf("* %-14s = %s\n", "min time value", min_time))
+            cat(sprintf("* %-14s = %s\n", "max time value", max_time))
             cat(sprintf("* %-14s = %s\n", "first version with update",
                         min(self$DT$version)))
             cat(sprintf("* %-14s = %s\n", "last version with update",

tests/testthat/test-methods-epi_archive.R

@@ -28,16 +28,16 @@ test_that("as_of properly grabs the data and doesn't mutate key",{
 
   ea2 = tibble::tribble(
     ~geo_value, ~time_value,      ~version, ~cases,
-    "ca", "2020-06-01", "2020-06-01",      1,
-    "ca", "2020-06-01", "2020-06-02",      2,
+          "ca", "2020-06-01", "2020-06-01",      1,
+          "ca", "2020-06-01", "2020-06-02",      2,
     #
-    "ca", "2020-06-02", "2020-06-02",      0,
-    "ca", "2020-06-02", "2020-06-03",      1,
-    "ca", "2020-06-02", "2020-06-04",      2,
+          "ca", "2020-06-02", "2020-06-02",      0,
+          "ca", "2020-06-02", "2020-06-03",      1,
+          "ca", "2020-06-02", "2020-06-04",      2,
     #
-    "ca", "2020-06-03", "2020-06-03",      1,
+          "ca", "2020-06-03", "2020-06-03",      1,
     #
-    "ca", "2020-06-04", "2020-06-04",      4,
+          "ca", "2020-06-04", "2020-06-04",      4,
     ) %>%
     dplyr::mutate(dplyr::across(c(time_value, version), as.Date)) %>%
     as_epi_archive()