athenaconnect  <- dbConnect(jdbcDriver, 'jdbc:awsathena://athena.us-east-1.amazonaws.com:443/',
                            s3_staging_dir="s3://caws-athena-query-results",
                            user=Sys.getenv("AWS_ACCESS_KEY_ID"),
                            password=Sys.getenv("AWS_SECRET_ACCESS_KEY"))