From eabd0a63f564ca3b1d5e5f38fa8c1e664afc2a42 Mon Sep 17 00:00:00 2001 From: "Dylan H. Morris" Date: Mon, 4 Nov 2024 21:31:32 +0000 Subject: [PATCH] Fix a bunch of typo-induced bugs --- nssp_demo/create_hubverse_table.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/nssp_demo/create_hubverse_table.R b/nssp_demo/create_hubverse_table.R index d3bfa1bc..65e7ae6c 100644 --- a/nssp_demo/create_hubverse_table.R +++ b/nssp_demo/create_hubverse_table.R @@ -7,12 +7,12 @@ draws_to_quantiles <- function(forecast_dir) { draws <- arrow::read_parquet(draws_path) |> dplyr::filter(disease == "prop_disease_ed_visits") - epiweekly_quantiles <- + epiweekly_quantiles <- draws |> forecasttools::daily_to_epiweekly( date_col = "date", value_col = ".value", id_cols = ".draw", - weekly_value_col = "value" + weekly_value_name = "value" ) |> forecasttools::trajectories_to_quantiles( timepoint_cols = c("epiweek", "epiyear"), @@ -75,7 +75,7 @@ create_hubverse_table <- function(model_run_dir) { main <- function(model_run_dir, output_path) { - creat_hubverse_table(model_run_dir) |> + create_hubverse_table(model_run_dir) |> readr::write_tsv(output_path) } @@ -100,5 +100,5 @@ argv <- argparser::parse_args(p) main( argv$model_run_dir, - arvg$output_path + argv$output_path )