context("Public object tests")
test_that("basic usage of get_object for anonymous user", {
ex <- get_object(object = "README.analysis_history", bucket = "1000genomes", key = "", secret = "", region = "us-east-1")
expect_true(is.raw(ex))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.