Fix linting issue, update docs

epiforecasts · Feb 26, 2024 · 23b708e · 23b708e
1 parent 842feac
commit 23b708e
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 9 deletions.
diff --git a/R/validate.R b/R/validate.R
@@ -115,17 +115,15 @@ as_forecast.default <- function(data,
   }
 
   # find forecast type
-  desired_forecast_type <- forecast_type
+  desired <- forecast_type
   forecast_type <- get_forecast_type(data)
 
-  if (!is.null(desired_forecast_type)) {
-    if (forecast_type != desired_forecast_type) {
-      stop(
-        "Forecast type determined by scoringutils based on input: `",
-        forecast_type,
-        "`. Desired forecast type: `", desired_forecast_type, "`."
-      )
-    }
+  if (!is.null(desired) && desired != forecast_type) {
+    stop(
+      "Forecast type determined by scoringutils based on input: `",
+      forecast_type,
+      "`. Desired forecast type: `", desired, "`."
+    )
   }
 
   # construct class

diff --git a/man/as_forecast.Rd b/man/as_forecast.Rd