fix pkgdown and R4.0 issue with pipe

epiforecasts · Jul 28, 2024 · 54ffbb4 · 54ffbb4
1 parent a36e840
commit 54ffbb4
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 1 deletion.
diff --git a/R/forecast.R b/R/forecast.R
@@ -116,6 +116,7 @@ as_forecast_generic <- function(data,
 #' @seealso [as_forecast()], [as_forecast_point()], [as_forecast_binary()],
 #'   [as_forecast_sample()], [as_forecast_quantile()]
 #' @importFrom cli cli_warn
+#' @keywords check-forecasts
 as_forecast_binary <- function(data,
                                forecast_unit = NULL,
                                observed = NULL,
@@ -137,6 +138,7 @@ as_forecast_binary <- function(data,
 #' @seealso [as_forecast()], [as_forecast_point()], [as_forecast_binary()],
 #'   [as_forecast_sample()], [as_forecast_quantile()]
 #' @export
+#' @keywords check-forecasts
 as_forecast_point <- function(data, ...) {
   UseMethod("as_forecast_point")
 }
@@ -185,6 +187,7 @@ as_forecast_point.forecast_quantile <- function(data, ...) {
 #'   [as_forecast_sample()], [as_forecast_quantile()]
 #' @inheritParams as_forecast
 #' @export
+#' @keywords check-forecasts
 as_forecast_quantile <- function(data, ...) {
   UseMethod("as_forecast_quantile")
 }
@@ -270,6 +273,7 @@ as_forecast_quantile.forecast_sample <- function(
 #' @seealso [as_forecast()], [as_forecast_point()], [as_forecast_binary()],
 #'   [as_forecast_sample()], [as_forecast_quantile()]
 #' @importFrom cli cli_warn
+#' @keywords check-forecasts
 as_forecast_sample <- function(data,
                                forecast_unit = NULL,
                                observed = NULL,

diff --git a/man/as_forecast_binary.Rd b/man/as_forecast_binary.Rd
diff --git a/man/as_forecast_quantile.Rd b/man/as_forecast_quantile.Rd
diff --git a/man/as_forecast_sample.Rd b/man/as_forecast_sample.Rd
diff --git a/tests/testthat/test-utils_data_handling.R b/tests/testthat/test-utils_data_handling.R
@@ -66,7 +66,7 @@ test_that("as_forecast_quantiles works", {
     observed = 1:10,
     predicted = c(rep(0, 10), 2:11, 3:12, 4:13, rep(100, 10)),
     sample_id = rep(1:5, each = 10)
-  ) |>
+  ) %>%
     as_forecast_sample()
 
   quantile <- data.frame(