R/copy_to_hd.R

In TheoPannetier/hamr: Utility package for comrad

#' Copy comrad files to hard drive
#'
#' @param job_ids eight-digit job ID given by Peregrine upon submission.
#' @param overwrite logical, passed to [fs::file_copy()].
#' @author Theo Pannetier
#' @export
#'
copy_sim_csv_to_hd <- function (job_ids, pkg = "comrad", overwrite = FALSE) {

  paths <- job_ids %>% path_to_sim_local(pkg = pkg)
  new_paths <- glue::glue(path_to_hd(), "{pkg}_data/sims/{pkg}_sim_{job_ids}.csv")

  fs::file_copy(
    path = paths,
    new_path = new_paths,
    overwrite = overwrite
  )
  return(0)
}

#' Copy comrad files to hard drive
#'
#' @param job_ids eight-digit job ID given by Peregrine upon submission.
#' @param overwrite logical, passed to [fs::file_copy()].
#' @author Theo Pannetier
#' @export
#'
copy_sim_log_to_hd <- function (job_ids, pkg = "comrad", overwrite = FALSE) {

  paths <- job_ids %>% path_to_log_local(pkg = pkg)
  new_paths <- glue::glue(path_to_hd(), "{pkg}_data/logs/{pkg}_sim_{job_ids}.log")

  fs::file_copy(
    path = paths,
    new_path = new_paths,
    overwrite = overwrite
  )
  return(0)
}