remove snapshots of hubExamples data for tests, instead directly usin…

…g hubExamples data objects

R/score_model_out.R

@@ -125,7 +125,7 @@ score_model_out <- function(model_out_tbl, oracle_output, metrics = NULL,
 #' Get scoring metrics
 #'
 #' @param forecast A scoringutils `forecast` object (see
-#' [scoringutils' general information on creating a `forecast` object][scoringutils::as_forecast_doc_template()]
+#' [scoringutils' general information on creating a forecast object][scoringutils::as_forecast_doc_template()]
 #' for details).
 #' @inheritParams score_model_out
 #'

tests/testthat/test-score_model_out.R

@@ -1,7 +1,7 @@
 test_that("score_model_out succeeds with valid inputs: mean output_type, default metrics, by all", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   act_scores <- score_model_out(
     model_out_tbl = forecast_outputs |> dplyr::filter(.data[["output_type"]] == "mean"),
@@ -40,9 +40,9 @@ test_that("score_model_out succeeds with valid inputs: mean output_type, default
 
 
 test_that("score_model_out succeeds with valid inputs: mean output_type, default metrics, summarize FALSE", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   act_scores <- score_model_out(
     model_out_tbl = forecast_outputs |> dplyr::filter(.data[["output_type"]] == "mean"),
@@ -81,9 +81,9 @@ test_that("score_model_out succeeds with valid inputs: mean output_type, default
 
 
 test_that("score_model_out succeeds with valid inputs: mean output_type, character metrics, custom by", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   act_scores <- score_model_out(
     model_out_tbl = forecast_outputs |> dplyr::filter(.data[["output_type"]] == "mean"),
@@ -125,9 +125,9 @@ test_that("score_model_out succeeds with valid inputs: mean output_type, charact
 
 
 test_that("score_model_out succeeds with valid inputs: median output_type, default metrics, summarize FALSE", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   act_scores <- score_model_out(
     model_out_tbl = forecast_outputs |> dplyr::filter(.data[["output_type"]] == "median"),
@@ -166,9 +166,9 @@ test_that("score_model_out succeeds with valid inputs: median output_type, defau
 
 
 test_that("score_model_out succeeds with valid inputs: quantile output_type, wis and interval metrics, custom by", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   act_scores <- score_model_out(
     model_out_tbl = forecast_outputs |> dplyr::filter(.data[["output_type"]] == "quantile"),
@@ -248,9 +248,9 @@ test_that("score_model_out succeeds with valid inputs: quantile output_type, wis
 
 
 test_that("score_model_out succeeds with valid inputs: quantile output_type, wis/interval metrics, summarize FALSE", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   act_scores <- score_model_out(
     model_out_tbl = forecast_outputs |> dplyr::filter(.data[["output_type"]] == "quantile"),
@@ -322,9 +322,9 @@ test_that("score_model_out succeeds with valid inputs: quantile output_type, wis
 
 
 test_that("score_model_out succeeds with valid inputs: nominal pmf output_type, default metrics, custom by", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   act_scores <- score_model_out(
     model_out_tbl = forecast_outputs |> dplyr::filter(.data[["output_type"]] == "pmf"),
@@ -365,9 +365,9 @@ test_that("score_model_out succeeds with valid inputs: nominal pmf output_type,
 
 
 test_that("score_model_out errors when model_out_tbl has multiple output_types", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   expect_error(
     score_model_out(
@@ -380,9 +380,9 @@ test_that("score_model_out errors when model_out_tbl has multiple output_types",
 
 
 test_that("score_model_out works with all kinds of interval levels are requested", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   expect_error(
     score_model_out(
@@ -425,9 +425,9 @@ test_that("score_model_out works with all kinds of interval levels are requested
 
 
 test_that("score_model_out errors when invalid metrics are requested", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   expect_error(
     score_model_out(
@@ -473,9 +473,9 @@ test_that("score_model_out errors when invalid metrics are requested", {
 
 
 test_that("score_model_out errors when an unsupported output_type is provided", {
-  # Forecast data from HubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
-  forecast_outputs <- hubex_forecast_outputs()
-  forecast_oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
 
   expect_error(
     score_model_out(

tests/testthat/test-transform_point_model_out.R

@@ -123,17 +123,16 @@ test_that("many-to-one relationship exists between model_out_tbl and oracle_outp
 })
 
 test_that("hubExamples data set is transformed correctly", {
-  # forecast_outputs.rda & forecast_oracle_output.rda are stored in hubExamples:
-  # https://github.com/hubverse-org/hubExamples/tree/main
-  model_out_tbl <- hubex_forecast_outputs()
-  oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
   act_forecast <- transform_point_model_out(
-    model_out_tbl = model_out_tbl,
-    oracle_output = oracle_output,
+    model_out_tbl = forecast_outputs,
+    oracle_output = forecast_oracle_output,
     output_type = "mean"
   )
 
-  exp_forecast <- model_out_tbl |>
+  exp_forecast <- forecast_outputs |>
     dplyr::filter(output_type == "mean") |>
     dplyr::rename(model = model_id)
 
@@ -153,7 +152,7 @@ test_that("hubExamples data set is transformed correctly", {
   # correct observed values, in alignment with oracle_output
   exp_act_forecast <- dplyr::left_join(
     act_forecast,
-    oracle_output |> dplyr::filter(output_type == "mean"),
+    forecast_oracle_output |> dplyr::filter(output_type == "mean"),
     by = c("target", "location", "target_end_date")
   )
   expect_equal(exp_act_forecast$observed, exp_act_forecast$oracle_value)

tests/testthat/test-transform_quantile_model_out.R

@@ -73,16 +73,16 @@ test_that("many-to-one relationship exists between model_out_tbl and oracle_outp
 })
 
 test_that("hubExamples data set is transformed correctly", {
-  # forecast_outputs.rda & forecast_oracle_output.rda are stored in hubExamples:
-  # https://github.com/hubverse-org/hubExamples/tree/main
-  model_out_tbl <- hubex_forecast_outputs()
-  oracle_output <- hubex_forecast_oracle_output()
+  # Forecast data from hubExamples: <https://hubverse-org.github.io/hubExamples/reference/forecast_data.html>
+  forecast_outputs <- hubExamples::forecast_outputs
+  forecast_oracle_output <- hubExamples::forecast_oracle_output
+
   act_forecast <- transform_quantile_model_out(
-    model_out_tbl = model_out_tbl,
-    oracle_output = oracle_output
+    model_out_tbl = forecast_outputs,
+    oracle_output = forecast_oracle_output
   )
 
-  exp_forecast <- model_out_tbl |>
+  exp_forecast <- forecast_outputs |>
     dplyr::filter(output_type == "quantile") |>
     dplyr::rename(model = model_id, quantile_level = output_type_id) |>
     dplyr::mutate(quantile_level = as.numeric(quantile_level))
@@ -103,7 +103,7 @@ test_that("hubExamples data set is transformed correctly", {
   # correct observed values, in alignment with oracle_output
   exp_act_forecast <- dplyr::left_join(
     act_forecast,
-    oracle_output |>
+    forecast_oracle_output |>
       dplyr::filter(output_type == "quantile") |>
       dplyr::rename(quantile_level = output_type_id) |>
       dplyr::mutate(quantile_level = as.numeric(quantile_level)),