styler

R/import-standalone-purrr.R

@@ -169,15 +169,19 @@ every <- function(.x, .p, ...) {
   .p <- as_function(.p, env = global_env())
 
   for (i in seq_along(.x)) {
-    if (!rlang::is_true(.p(.x[[i]], ...))) return(FALSE)
+    if (!rlang::is_true(.p(.x[[i]], ...))) {
+      return(FALSE)
+    }
   }
   TRUE
 }
 some <- function(.x, .p, ...) {
   .p <- as_function(.p, env = global_env())
 
   for (i in seq_along(.x)) {
-    if (rlang::is_true(.p(.x[[i]], ...))) return(TRUE)
+    if (rlang::is_true(.p(.x[[i]], ...))) {
+      return(TRUE)
+    }
   }
   FALSE
 }

R/reexports-epidatasets.R

@@ -13,7 +13,7 @@
 #'
 #' # fails
 #' \dontrun{
-#'   data(grad_employ_subset, package = "epipredict")
+#' data(grad_employ_subset, package = "epipredict")
 #' }
 #' @export
 delayedAssign("grad_employ_subset", epidatasets::grad_employ_subset)
@@ -33,7 +33,7 @@ delayedAssign("grad_employ_subset", epidatasets::grad_employ_subset)
 #'
 #' # fails
 #' \dontrun{
-#'   data(covid_case_death_rates, package = "epipredict")
+#' data(covid_case_death_rates, package = "epipredict")
 #' }
 #' @export
 delayedAssign("covid_case_death_rates", epidatasets::covid_case_death_rates)
@@ -53,7 +53,7 @@ delayedAssign("covid_case_death_rates", epidatasets::covid_case_death_rates)
 #'
 #' # fails
 #' \dontrun{
-#'   data(state_census, package = "epipredict")
+#' data(state_census, package = "epipredict")
 #' }
 #' @export
 delayedAssign("state_census", epidatasets::state_census)
@@ -73,7 +73,7 @@ delayedAssign("state_census", epidatasets::state_census)
 #'
 #' # fails
 #' \dontrun{
-#'   data(counts_subset, package = "epipredict")
+#' data(counts_subset, package = "epipredict")
 #' }
 #' @export
 delayedAssign("counts_subset", epidatasets::counts_subset)
@@ -93,7 +93,7 @@ delayedAssign("counts_subset", epidatasets::counts_subset)
 #'
 #' # fails
 #' \dontrun{
-#'   data(ctis_covid_behaviours, package = "epipredict")
+#' data(ctis_covid_behaviours, package = "epipredict")
 #' }
 #' @export
 delayedAssign("ctis_covid_behaviours", epidatasets::ctis_covid_behaviours)
@@ -113,7 +113,7 @@ delayedAssign("ctis_covid_behaviours", epidatasets::ctis_covid_behaviours)
 #'
 #' # fails
 #' \dontrun{
-#'   data(county_smoothed_cli_comparison, package = "epipredict")
+#' data(county_smoothed_cli_comparison, package = "epipredict")
 #' }
 #' @export
 delayedAssign("county_smoothed_cli_comparison", epidatasets::county_smoothed_cli_comparison)
@@ -133,7 +133,7 @@ delayedAssign("county_smoothed_cli_comparison", epidatasets::county_smoothed_cli
 #'
 #' # fails
 #' \dontrun{
-#'   data(cases_deaths_subset, package = "epipredict")
+#' data(cases_deaths_subset, package = "epipredict")
 #' }
 #' @export
 delayedAssign("cases_deaths_subset", epidatasets::cases_deaths_subset)
@@ -153,7 +153,7 @@ delayedAssign("cases_deaths_subset", epidatasets::cases_deaths_subset)
 #'
 #' # fails
 #' \dontrun{
-#'   data(case_death_rate_archive, package = "epipredict")
+#' data(case_death_rate_archive, package = "epipredict")
 #' }
 #' @export
 delayedAssign("case_death_rate_archive", epidatasets::case_death_rate_archive)
@@ -173,7 +173,7 @@ delayedAssign("case_death_rate_archive", epidatasets::case_death_rate_archive)
 #'
 #' # fails
 #' \dontrun{
-#'   data(archive_cases_dv_subset_all_states, package = "epipredict")
+#' data(archive_cases_dv_subset_all_states, package = "epipredict")
 #' }
 #' @export
 delayedAssign("archive_cases_dv_subset_all_states", epidatasets::archive_cases_dv_subset_all_states)
@@ -193,7 +193,7 @@ delayedAssign("archive_cases_dv_subset_all_states", epidatasets::archive_cases_d
 #'
 #' # fails
 #' \dontrun{
-#'   data(can_prov_cases, package = "epipredict")
+#' data(can_prov_cases, package = "epipredict")
 #' }
 #' @export
 delayedAssign("can_prov_cases", epidatasets::can_prov_cases)

vignettes/articles/sliding.Rmd

@@ -96,10 +96,11 @@ case_rate_subset <- pub_covidcast(
   filter(!(geo_value %in% c("as", "gu", "dc", "mp", "pr", "vi"))) %>%
   as_epi_archive(compactify = FALSE)
 
-archive_cases_dv_subset_all_states_dt = epix_merge(
+archive_cases_dv_subset_all_states_dt <- epix_merge(
   dv_subset, case_rate_subset,
   sync = "locf",
-  compactify = TRUE)
+  compactify = TRUE
+)
 ```
 
 </details>

vignettes/articles/symptom-surveys.Rmd

@@ -228,7 +228,7 @@ jhu_7dav_incid <- pub_covidcast(
   select(geo_value, time_value, value) %>%
   rename(case = value)
 
-# Find "complete" counties, present in all three data signals, and also 
+# Find "complete" counties, present in all three data signals, and also
 # present in the `geo_values_initial` object.
 geo_values_complete <- intersect(
   intersect(goog_sm_cli$geo_value, fb_survey$geo_value),

vignettes/preprocessing-and-models.Rmd

@@ -284,7 +284,7 @@ behav_ind_mask <- pub_covidcast(
   time_values = epirange(20210604, 20211231),
   geo_values = "ca,fl,tx,ny,nj",
   as_of = d
-)  %>%
+) %>%
   select(geo_value, time_value, masking = value)
 
 behav_ind_distancing <- pub_covidcast(
@@ -295,7 +295,7 @@ behav_ind_distancing <- pub_covidcast(
   time_values = epirange(20210604, 20211231),
   geo_values = "ca,fl,tx,ny,nj",
   as_of = d
-)  %>%
+) %>%
   select(geo_value, time_value, distancing = value)
 
 behav_ind <- behav_ind_mask %>%