misc/AWS_setup_playground.R

In ucsd-dsm/hbcd-tlfb: HBCD TLFB shiny app

# AWS credentials are stored in .Renviron (project level)
# Sys.getenv("AWS_ACCESS_KEY_ID")
# Sys.getenv("AWS_SECRET_ACCESS_KEY")

# Test
connect_server_test <- aws.s3::bucket_exists(bucket = "hbcd-tlfb",
                                             base_url = "storjshare.io",
                                             region = "gateway.us1")

# List files
if(connect_server_test) {
  bucket_dta <- aws.s3::get_bucket(bucket = "hbcd-tlfb", base_url = "storjshare.io", region = "gateway.us1") |>
    unlist()
}
bucket_dta


# Save file
tlfb_data_session <- list(
  meta = "Test",
  date_submission = Sys.Date(),
  data = cars,
  complete = FALSE
)

name_file <- glue::glue("test_file_{format(Sys.time(), '%Y-%m-%d_%H%M%S')}.tlfb")
file <- file.path(tempdir(), name_file)

save(tlfb_data_session, file = file)

aws.s3::put_object(file = file, object = name_file,
                   bucket = "hbcd-tlfb", base_url = "storjshare.io", region = "gateway.us1")

# Load file
# rm(list = ls())
tlfb_data <- aws.s3::get_object(object = "test_file_2022-05-27_092639.tlfb",
                                bucket = "hbcd-tlfb", base_url = "storjshare.io", region = "gateway.us1")

load(rawConnection(tlfb_data))