fu styler

Author: dajmcdon

tests/testthat/test-layer_threshold_preds.R

@@ -58,7 +58,9 @@ test_that("thresholds additional columns", {
   p <- p %>%
     dplyr::mutate(.quantiles = nested_quantiles(.pred_distn)) %>%
     tidyr::unnest(.quantiles)
-  expect_equal(round(p$values, digits = 3),
-               c(0.180, 0.180, 0.31, 0.180, 0.180, .18, 0.310, .31, .31))
+  expect_equal(
+    round(p$values, digits = 3),
+    c(0.180, 0.180, 0.31, 0.180, 0.180, .18, 0.310, .31, .31)
+  )
   expect_equal(p$quantile_levels, rep(c(.1, 0.5, .9), times = 3))
 })

vignettes/epipredict.Rmd

@@ -237,7 +237,7 @@ function:
 ```{r, eval = FALSE}
 arx_args_list(
   lags = c(0L, 7L, 14L), ahead = 7L, n_training = Inf,
-  forecast_date = NULL, target_date = NULL, 
+  forecast_date = NULL, target_date = NULL,
   quantile_levels = c(0.05, 0.1, 0.25, 0.5, 0.75, 0.9, 0.95),
   symmetrize = TRUE, nonneg = TRUE, quantile_by_key = character(0L),
   nafill_buffer = Inf