R에서 Athena 접속해서 쿼리 날리기

AWS Athena는 처음이라 복잡하고 느려서 골탕 좀 먹었다. 아직도 이해가 되지 않는 건 왜 Athena에서 Date_format을 쿼리에 넣으면 에러 나는지 모르겠다ㅠ 찾아봐야지..

install.packages("rJava")
install.packages("RJDBC")

Sys.setenv(JAVA_HOME = '/Library/Java/JavaVirtualMachines/jdk14.jdk/Contents/Home')
dyn.load('/Library/Java/JavaVirtualMachines/jdk14.jdk/Contents/Home/lib/server/libjvm.dylib')
Sys.setenv("ATHENA_USER" = < ATHENA_USER_ID > "ATHENA_PASSWORD" = < ATHENA_PASSWORD >)

library(rJava)
library(RJDBC)
library(DBI)

Sys.getenv()
URL <- 'https://s3.amazonaws.com/athena-downloads/drivers/JDBC/SimbaAthenaJDBC_2.0.9/AthenaJDBC42_2.0.9.jar'
fil <- basename(URL)

if (!file.exists(fil)) download.file(URL, fil)

fil
list.files()

#AWS에서 안내하는 driverClass로는 접속이 안되어 IBM에서 안내한 곳으로 했더니 잘 된다.

drv <- JDBC(driverClass="com.simba.athena.jdbc.Driver", fil, identifier.quote="'")

con <- jdbcConnection <- dbConnect(drv, 'jdbc:awsathena://athena.ap-northeast-2.amazonaws.com:443/',
                                   s3_staging_dir="s3://athena-odbc-query-results",
                                   user=Sys.getenv("ATHENA_USER"),
                                   password=Sys.getenv("ATHENA_PASSWORD"))

dbListTables(con)

그나저나 왜 티스토리는 R 코드블럭은 지원하지 않는 걸까?ㅠ