style: styler (GHA)

Author: dajmcdon

R/epi_df.R

@@ -172,8 +172,7 @@ NULL
 #'
 #' @export
 new_epi_df <- function(x = tibble::tibble(), geo_type, time_type, as_of,
-                       other_keys = character(0L), ..., subclass = character(0L)
-                       ) {
+                       other_keys = character(0L), ..., subclass = character(0L)) {
   # Define metadata fields
   metadata <- list()
   metadata$geo_type <- geo_type

tests/testthat/test-epi_df.R

@@ -41,7 +41,7 @@ test_that("as_epi_df errors when additional_metadata is not a list", {
   )
 })
 
-test_that("as_epi_df errors for non-character other_keys",{
+test_that("as_epi_df errors for non-character other_keys", {
   ex_input <- jhu_csse_county_level_subset %>%
     dplyr::filter(time_value > "2021-12-01", state_name == "Massachusetts") %>%
     dplyr::slice_tail(n = 6) %>%
@@ -50,7 +50,7 @@ test_that("as_epi_df errors for non-character other_keys",{
       state = rep("MA", 6),
       pol = rep(c("blue", "swing", "swing"), each = 2)
     )
-  
+
   expect_error(
     as_epi_df(ex_input, other_keys = list()),
     "Must be of type 'character'"

tests/testthat/test-methods-epi_df.R

@@ -83,7 +83,7 @@ test_that("Subsetting drops & does not drop the epi_df class appropriately", {
 
 test_that("When duplicate cols in subset should abort", {
   expect_error(toy_epi_df[, c(2, 2:3, 4, 4, 4)],
-    "Duplicated column names: time_value, indic_var2", 
+    "Duplicated column names: time_value, indic_var2",
     fixed = TRUE
   )
   expect_error(toy_epi_df[1:4, c(1, 2:4, 1)],