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.