R/config.R

In fdrennan/sagemaker_example_r:

#' @export configure_aws
configure_aws <- function(aws_access_key_id = NA,
                          aws_secret_access_key = NA,
                          default.region = NA) {

  subprocess <- import('subprocess')

  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)


}