Nothing
skip_if_not_installed("mime")
test_that("board contains proper gcloud headers", {
headers <- names(gcloud_headers(list(token = "abc"), "PUT", "x", "files/hello.txt")$headers)
expect_true("Content-Type" %in% headers)
expect_true("Authorization" %in% headers)
})
# Live API ---------------------------------------------------------------------
skip_if_missing_envvars("legacy_gcloud()", "TEST_GOOGLE_BUCKET")
board <- legacy_gcloud(
bucket = Sys.getenv("TEST_GOOGLE_BUCKET"),
cache = tempfile()
)
board_test(board, suite = "default")
board <- legacy_gcloud(
bucket = Sys.getenv("TEST_GOOGLE_BUCKET"),
versions = TRUE,
cache = tempfile()
)
board_test(board, suite = "versions")
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.