R/targets-archive.R

In seabbs/eval-germany-sm-nowcasting: Evaluating Semi-Parametric Nowcasts of COVID-19 Hospital Admissions in Germany

upload_targets_archive <- function(...) {
  zip("_targets.zip", "_targets")
  piggyback::pb_upload("_targets.zip")
  fs::file_delete("_targets.zip")
}

get_targets_archive <- function(dir = ".", ...) {
  piggyback::pb_download("_targets.zip")
  unzip("_targets.zip", exdir = dir)
  fs::file_delete("_targets.zip")
}