Nothing
context("ARN Connection")
# NOTE System variable format returned for Unit tests:
# Sys.getenv("rathena_arn"): "arn:aws:sts::123456789012:assumed-role/role_name/role_session_name"
# Sys.getenv("rathena_s3_query"): "s3://path/to/query/bucket/"
# Sys.getenv("rathena_s3_tbl"): "s3://path/to/bucket/"
test_that("Check connection to Athena using ARN",{
skip_if_no_boto()
skip_if_no_env()
# Test connection is using AWS CLI to set profile_name
con <- dbConnect(athena(),
role_arn = Sys.getenv("rathena_arn"),
s3_staging_dir = Sys.getenv("rathena_s3_query"),
duration_seconds = 1000)
output <- dbGetQuery(con, "show Databases")
expect_equal(any(grepl("default", output)), TRUE)
})
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.