if (FALSE) {
# Note:
# - Require AWS Account to run below example.
# - Different connection methods can be used please see `RAthena::dbConnect` documentation
library(DBI)
library(dplyr)
# Demo connection to Athena using profile name
con <- dbConnect(RAthena::athena())
# Write data.frame to Athena table
copy_to(con, mtcars,
s3_location = "s3://mybucket/data/")
# Write Athena table from tbl_sql
athena_mtcars <- tbl(con, "mtcars")
mtcars_filter <- athena_mtcars %>% filter(gear >=4)
# create athena with unique table name
mtcars_filer %>%
compute()
# create athena with specified name and s3 location
mtcars_filer %>%
compute("mtcars_filer",
s3_location = "s3://mybucket/mtcars_filer/")
# Disconnect from Athena
dbDisconnect(con)
}
Run the code above in your browser using DataLab