R/sendFile.R

In INWTlab/rsync: API to use rsync

#' @details
#' \code{sendFile} Sends a file to a rsync object.
#'
#' @rdname rsync
#' @export
sendFile <- function(db, ...) {
  UseMethod("sendFile", db)
}

#' @rdname rsync
#' @export
sendFile.default <- function(db, fileName, validate = FALSE, verbose = FALSE, ...) {
  stopifnot(length(fileName) == 1)

  args <- if (verbose == TRUE) "-ltrvvx" else "-ltrx"
  args <- paste(args, getArgs(db))
  src <- paste0(getSrc(db), fileName)
  dest <- getDest(db)
  pre <- getPre(db)

  stopifnot(file.exists(src))

  rsynccli(src, dest, args = args, pre = pre)

  if (validate) validateFile(db, fileName)
  db
}

#' @rdname awss3
#' @export
sendFile.awss3 <- function(db, fileName, validate = FALSE, verbose = FALSE, args = "", ...) {
  args <- if (!verbose) paste("--quiet --no-progress --only-show-errors", args) else args
  args <- paste("sync", args)

  src <- getSrc(db)
  dest <- getDest(db)
  profile <- getProfile(db)

  awscli(src, dest, args = args, excludes = "*", includes = fileName, profile = profile)

  if (validate) validateFile(db, fileName)
  db
}