# set aws s3
signature <-
  aws.signature::locate_credentials(
    profile = "default",
    region = "ap-northeast-1"
  )
Sys.setenv(
  "AWS_ACCESS_KEY_ID" = signature$key,
  "AWS_SECRET_ACCESS_KEY" = signature$secret,
  "AWS_DEFAULT_REGION" = signature$region
)
bucket_name <- "mobileapp-rstudio"
equilibrium <-
  aws.s3::s3readRDS(
    object = "output/simulate/equilibrium.rds",
    bucket = bucket_name,
    multipart = TRUE
  )
aws.s3::s3saveRDS(
  equilibrium,
  object = 
    paste0(
      prefix, 
      "equilibrium.rds"
    ),
  bucket = bucket_name,
  multipart = TRUE
)