copilot suggestions

Author: sbidari

DESCRIPTION

@@ -19,7 +19,8 @@ Imports:
     readr,
     stringr
 Remotes:
-    forecasttools=github::cdcgov/forecasttools
+    forecasttools=github::cdcgov/forecasttools,
+    hubUtils=github::hubverse-org/hubUtils
 Suggests:
     tibble,
     testthat (>= 3.0.0)

R/update_hub_target_data.R

@@ -109,8 +109,16 @@ update_hub_target_data <- function(
     dplyr::arrange(date, location)
 
   output_file <- fs::path(output_dirpath, "time-series", ext = "parquet")
-  forecasttools::read_tabular_file(output_file) |>
-    dplyr::bind_rows(hubverse_format_nhsn_data, hubverse_format_nssp_data) |>
+  if (fs::file_exists(output_file)) {
+    existing_data <- forecasttools::read_tabular_file(output_file)
+  } else {
+    existing_data <- hubverse_format_nhsn_data[0, ]
+  }
+  dplyr::bind_rows(
+    existing_data,
+    hubverse_format_nhsn_data,
+    hubverse_format_nssp_data
+  ) |>
     dplyr::distinct() |>
     forecasttools::write_tabular_file(output_file)
 }

tests/testthat/test_update_hub_target_data.R

@@ -10,15 +10,6 @@ update_hub_target_data_test <- function(
   output_file <- fs::path(base_hub_path, "target-data/time-series.parquet")
   fs::dir_create(fs::path(base_hub_path, "target-data"))
 
-  mock_target_ts <- tibble::tibble(
-    date = lubridate::as_date(character()),
-    observation = numeric(),
-    location = character(),
-    as_of = lubridate::as_date(character()),
-    target = character()
-  )
-  forecasttools::write_tabular_file(mock_target_ts, output_file)
-
   mock_nhsn <- tibble::tibble(
     weekendingdate = lubridate::as_date(c(
       "2024-11-09",