lint: lint

Author: dshemetov

R/utils.R

@@ -877,11 +877,17 @@ guess_period.POSIXt <- function(time_values, time_values_arg = rlang::caller_arg
 
 validate_slide_window_arg <- function(arg, time_type, allow_inf = TRUE, arg_name = rlang::caller_arg(arg)) {
   if (is.null(arg)) {
-    cli_abort("`{arg_name}` is a required argument for slide functions.", class = "epiprocess__validate_slide_window_arg")
+    cli_abort(
+      "`{arg_name}` is a required argument for slide functions.",
+      class = "epiprocess__validate_slide_window_arg"
+    )
   }
 
   if (!checkmate::test_scalar(arg)) {
-    cli_abort("Slide function expected `{arg_name}` to be a scalar value.", class = "epiprocess__validate_slide_window_arg")
+    cli_abort(
+      "Slide function expected `{arg_name}` to be a scalar value.",
+      class = "epiprocess__validate_slide_window_arg"
+    )
   }
 
   if (time_type == "custom") {

tests/testthat/test-epi_slide.R

@@ -612,7 +612,8 @@ test_that("helper `full_date_seq` returns expected date values", {
 
   expect_identical(
     full_date_seq(
-      epi_data_missing %>% mutate(time_value = days) %>%
+      epi_data_missing %>%
+        mutate(time_value = days) %>%
         as_epi_df() %>%
         group_by(geo_value),
       before = before * days_dt, after = after * days_dt, time_type = "day"
@@ -628,7 +629,8 @@ test_that("helper `full_date_seq` returns expected date values", {
   )
   expect_identical(
     full_date_seq(
-      epi_data_missing %>% mutate(time_value = weeks) %>%
+      epi_data_missing %>%
+        mutate(time_value = weeks) %>%
         as_epi_df() %>%
         group_by(geo_value),
       before = before, after = after, time_type = "week"
@@ -644,7 +646,8 @@ test_that("helper `full_date_seq` returns expected date values", {
   )
   expect_identical(
     full_date_seq(
-      epi_data_missing %>% mutate(time_value = yearmonths) %>%
+      epi_data_missing %>%
+        mutate(time_value = yearmonths) %>%
         as_epi_df() %>%
         group_by(geo_value),
       before = before, after = after, time_type = "yearmonth"
@@ -657,7 +660,8 @@ test_that("helper `full_date_seq` returns expected date values", {
   )
   expect_identical(
     full_date_seq(
-      epi_data_missing %>% mutate(time_value = integers) %>%
+      epi_data_missing %>%
+        mutate(time_value = integers) %>%
         as_epi_df() %>%
         group_by(geo_value),
       before = before, after = after, time_type = "integer"
@@ -675,7 +679,8 @@ test_that("helper `full_date_seq` returns expected date values", {
 
   expect_identical(
     full_date_seq(
-      epi_data_missing %>% mutate(time_value = days) %>%
+      epi_data_missing %>%
+        mutate(time_value = days) %>%
         as_epi_df() %>%
         group_by(geo_value),
       before = before * days_dt, after = after * days_dt, time_type = "day"
@@ -698,7 +703,8 @@ test_that("helper `full_date_seq` returns expected date values", {
 
   expect_identical(
     full_date_seq(
-      epi_data_missing %>% mutate(time_value = days) %>%
+      epi_data_missing %>%
+        mutate(time_value = days) %>%
         as_epi_df() %>%
         group_by(geo_value),
       before = before * days_dt, after = after * days_dt, time_type = "day"