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.