R/user.R

In kiernann/duckr: Manage Remote Files with Cyberduck

#' Set Duck Username
#'
#' Use [Sys.getenv()] to set the "S3_USER" environment variable. Passwords are
#' taken from the local credential files saved by the duck tool.
#'
#' @param user The username or access key. Defined in environment as "S3_USER".
#' @examples
#' duck_user("kiernann")
#' @export
duck_user <- function(user = Sys.getenv("S3_USER")) {
  if (Sys.getenv("S3_USER") != "") {
    warning("username is already set.")
  } else {
    Sys.setenv("S3_USER" = user)
  }
}