R/get_umls_query.R

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

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

get_umls_query <- 
        function (sql_statement) 
        {
                conn <- connect_to_mysql5.5(dbname = "umls")
                data <- DBI::dbGetQuery(conn = conn, statement = sql_statement)
                DBI::dbDisconnect(conn)
                return(data)
        }