R/configure_aws.R

In fdrennan/awsR: Convenience Functions For AWS R Users

#' configure_aws
#' @param aws_access_key_id IAM access key ID
#' @param aws_secret_access_key IAM secret access key
#' @param default.region AWS preferred region
#' @export configure_aws
configure_aws <- function(aws_access_key_id = NA,
                          aws_secret_access_key = NA,
                          default.region = NA) {

  access_key <-
    paste("aws configure set aws_access_key_id", aws_access_key_id)

  aws_secret_access_key <-
    paste("aws configure set aws_secret_access_key", aws_secret_access_key)

  default_region <-
    paste("aws configure set default.region", default.region)

  subprocess$call(access_key, shell=TRUE)
  subprocess$call(aws_secret_access_key, shell=TRUE)
  subprocess$call(default_region, shell=TRUE)


}