# NOT RUN {
# Note:
# - Require AWS Account to run below example.
# - Different connection methods can be used please see `RAthena::dbConnect` documnentation
library(RAthena)
# Demo connection to Athena using profile name
con <- dbConnect(RAthena::athena())
# List current work group available
list_work_groups(con)
# Create a new work group
wg <- create_work_group(con,
"demo_work_group",
description = "This is a demo work group",
tags = tag_options(key= "demo_work_group", value = "demo_01"))
# List work groups to see new work group
list_work_groups(con)
# get meta data from work group
wg <- get_work_group(con, "demo_work_group")
# Update work group
wg <- update_work_group(con, "demo_work_group",
description = "This is a demo work group update")
# get updated meta data from work group
wg <- get_work_group(con, "demo_work_group")
# Delete work group
delete_work_group(con, "demo_work_group")
# Disconect from Athena
dbDisconnect(con)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab