R/upload_sim_drive.R

In TheoPannetier/hamr: Utility package for comrad

#' Upload simulation files to Google Drive
#'
#' Given a vector of job IDs, will upload the corresponding `.csv` or `.log`
#' files from the local computer to my Google Drive account.
#'
#' @param job_ids 8-digit numeric or character vector. Peregrine job IDs
#' identifying the files to download.
#'
#' @author Théo Pannetier
#' @name upload_sim_drive
NULL

#' @export
#' @rdname upload_sim_drive
upload_sim_csv_drive <- function(job_ids, pkg = "comrad") {

  files <- glue::glue(
    paste0(path_to_fabrika_local(), "{pkg}_data/sims/{pkg}_sim_{job_ids}.csv")
  )
  purrr::walk(
    files,
    function(file) {
      googledrive::drive_upload(
        media = file,
        path = glue::glue("{pkg}/{pkg}_data/sims/"),
        overwrite = FALSE
      )
    }
  )

}

#' @export
#' @rdname upload_sim_drive
upload_sim_log_drive <- function(job_ids, pkg = "comrad") {
  files <- glue::glue(
    paste0(path_to_fabrika_local(), "{pkg}_data/logs/{pkg}_sim_{job_ids}.log")
  )
  purrr::walk(
    files,
    function(file) {
      googledrive::drive_upload(
        media = file,
        path = "{pkg}/{pkg}_data/logs/",
        overwrite = FALSE
      )
    }
  )
}