R/get_athena_query.R

In patelm9/mySeagull: What the Package Does (One Line, Title Case)

#' Query local Athena
#' @importFrom DBI dbGetQuery
#' @importFrom DBI dbDisconnect
#' @export

get_athena_query <- 
        function (sql_statement) 
                {
        conn <- connect_to_local_postgres(dbname = "athena")
        data <- DBI::dbGetQuery(conn = conn, statement = sql_statement)
        DBI::dbDisconnect(conn)
        return(data)
}