if (FALSE) {
# Note:
# - Require AWS Account to run below example.
# - Different connection methods can be used please see `RAthena::dbConnect` documnentation
library(DBI)
# Demo connection to Athena using profile name
con <- dbConnect(RAthena::athena())
# write iris table to Athena
dbWriteTable(con, "iris",
iris,
partition = c("timestamp" = format(Sys.Date(), "%Y%m%d")),
s3.location = "s3://path/to/store/athena/table/"
)
# return table partitions
RAthena::dbGetPartition(con, "iris")
# disconnect from Athena
dbDisconnect(con)
}
Run the code above in your browser using DataLab