View source: R/make_aws_call.R
make_aws_call | R Documentation |
Constructs GET information string for AWS S3 Bucket
make_aws_call(
path_to_file = "/",
bucket = "hcp-openaccess",
region = "us-east-1",
access_key = NULL,
secret_key = NULL,
lifetime_minutes = 5,
query = NULL,
verb = "GET",
sign = TRUE
)
path_to_file |
Path to file on HCP S3 Bucket |
bucket |
Bucket to download from |
region |
Region of S3 Bucket |
access_key |
Amazon S3 Access Key |
secret_key |
Amazon S3 Secret Key |
lifetime_minutes |
Time that connection can be opened |
query |
additional query to add to |
verb |
httr VERB to be used |
sign |
Should the url be signed? |
Character of the url to be passed to httr
'VERB's
if (have_aws_key()){
path_to_file <- paste0(
"HCP_900/100206/MNINonLinear/",
"100206.164k_fs_LR.wb.spec")
result = make_aws_call(path_to_file)
# don't want this stuff printed because it has keys
result$headers$secret_key = NULL
result$headers$access_key = NULL
result$query$AWSAccessKeyId = NULL
result$query$Signature = NULL
result
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.