style: styler (GHA)

dsweber2 · dsweber2 · commit 4b7f28a52b56 · 2024-08-13T11:11:23.000-05:00
diff --git a/R/archive.R b/R/archive.R
@@ -319,7 +319,7 @@ new_epi_archive <- function(
   # Runs compactify on data frame
   if (is.null(compactify) || compactify == TRUE) {
     compactified <- apply_compactify(data_table, key_vars, compactify_tol)
-  } else{
+  } else {
     compactified <- data_table
   }
   # Warns about redundant rows if the number of rows decreased, and we didn't
diff --git a/tests/testthat/test-archive.R b/tests/testthat/test-archive.R
@@ -51,7 +51,7 @@ test_that("as_epi_archive custom name mapping works correctly", {
 dumb_ex <- data.frame(
   geo_value = c("ca", "ca"),
   time_value = as.Date(c("2020-01-01", "2020-01-01")),
-  value = c(1,1),
+  value = c(1, 1),
   version = as.Date(c("2020-01-01", "2020-01-02"))
 )
 test_that("new_epi_archive correctly detects and warns about compactification", {

Original file line number	Diff line number	Diff line change
`@@ -319,7 +319,7 @@ new_epi_archive <- function(`
`319`	`319`	`# Runs compactify on data frame`
`320`	`320`	`if (is.null(compactify) \|\| compactify == TRUE) {`
`321`	`321`	`compactified <- apply_compactify(data_table, key_vars, compactify_tol)`
`322`		`- } else{`
	`322`	`+ } else {`
`323`	`323`	`compactified <- data_table`
`324`	`324`	`}`
`325`	`325`	`# Warns about redundant rows if the number of rows decreased, and we didn't`
Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@ test_that("as_epi_archive custom name mapping works correctly", {`
`51`	`51`	`dumb_ex <- data.frame(`
`52`	`52`	`geo_value = c("ca", "ca"),`
`53`	`53`	`time_value = as.Date(c("2020-01-01", "2020-01-01")),`
`54`		`- value = c(1,1),`
	`54`	`+ value = c(1, 1),`
`55`	`55`	`version = as.Date(c("2020-01-01", "2020-01-02"))`
`56`	`56`	`)`
`57`	`57`	`test_that("new_epi_archive correctly detects and warns about compactification", {`