library("testthat")
k1 <- Sys.getenv("AWS_ACCESS_KEY_ID")
k2 <- Sys.getenv("AWS_SECRET_ACCESS_KEY")
if ((k1 != "") && (k2 != "")) {
library("aws.glacier")
test_check("aws.glacier")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.