R/from-connection.R

Defines functions sql_from_file sql_from_con

sql_from_con <- function(con) {
    query <- readLines(con)
    query <- paste(query, collapse = "\n")
    query
}

sql_from_file <- function(f) {
    con <- file(f, open = "rt")
    on.exit(close(con))
    sql_from_con(con)
}
tarakc02/getcdw documentation built on April 2, 2022, 4:13 p.m.