Nothing
test_that("A GET request is correctly signed", {
key <- "AKIAIOSFODNN7EXAMPLE"
secret <- "wJalrXUtnFEMI/K7MDENG/bPxRfiCYEXAMPLEKEY"
region <- "us-east-1"
signed <- signature_v4_auth(
datetime = "20130524T000000Z",
service = "s3",
verb = "GET",
action = "/test.txt",
canonical_headers = list(
"Host"= "examplebucket.s3.amazonaws.com",
"Range"= "bytes=0-9",
"X-AMZ-Date"="20130524T000000Z"
),
request_body = "",
signed_body=TRUE,
key = key,
secret= secret,
region = region
)
expect_identical(signed$SignatureHeader, "AWS4-HMAC-SHA256 Credential=AKIAIOSFODNN7EXAMPLE/20130524/us-east-1/s3/aws4_request,SignedHeaders=host;range;x-amz-content-sha256;x-amz-date,Signature=f0e8bdb87c964420e857bd35b5d6ed310bd44f0170aba48dd91039c6036bdb41")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.