R/add.R

In andrewcstewart/dvc-r: Use Data Version Control (DVC) in R

#' Track data files or directories with DVC.
#'
#' Documentation: <https://man.dvc.org/add>
#'
#' @param path Input files/directories to add.
#' @param repo Path to root of repository (project root by default)
#' @param git_commit Include git commits? (default: TRUE)
#' @param git_message Git commit message.
#'
#' @export
add <- function(path, repo = here::here(), git_commit = TRUE, git_message = "Add raw data") {
  cmd <- glue::glue("dvc add {path}")
  system(cmd)

  ## Add file and commit
  if(git_commit) {
    git2r::add(repo, glue::glue("{path}.xml.dvc"))
    git2r::add(repo, fs::path(fs::path_dir(path), ".gitignore"))
    git2r::commit(repo, git_message)
  }
}