lintr

Author: dsweber2

tests/testthat/test-epi_slide.R

@@ -1283,10 +1283,19 @@ multi_columns <- dplyr::bind_rows(
   group_by(geo_value)
 
 test_that("no dplyr warnings from selecting multiple columns", {
-  expect_no_warning(multi_slid <- epi_slide_mean(multi_columns, col_names = c("value", "value2"), before = 3L))
-  expect_equal(names(multi_slid), c("geo_value", "time_value", "value", "value2", "slide_value_value", "slide_value_value2"))
-  expect_no_warning(multi_slid_select <- epi_slide_mean(multi_columns, c(value, value2), before = 3L))
+  expect_no_warning(
+    multi_slid <- epi_slide_mean(multi_columns, col_names = c("value", "value2"), before = 3L)
+  )
+  expect_equal(
+    names(multi_slid),
+    c("geo_value", "time_value", "value", "value2", "slide_value_value", "slide_value_value2")
+  )
+  expect_no_warning(
+    multi_slid_select <- epi_slide_mean(multi_columns, c(value, value2), before = 3L)
+  )
   expect_equal(multi_slid_select, multi_slid)
-  expect_no_warning(multi_slid_select <- epi_slide_mean(multi_columns, starts_with("value"), before = 3L))
+  expect_no_warning(
+    multi_slid_select <- epi_slide_mean(multi_columns, starts_with("value"), before = 3L)
+  )
   expect_equal(multi_slid_select, multi_slid)
 })