R/read_sql.R

In wkostelecki/wtils: Utility functions

Defines functions read_sql

Documented in read_sql

#' read_sql
#' @param file Relative or absolute path to SQL query file.
#'
#' @export
read_sql = function(file) {

  lines = readLines(file)
  lines = sub(" *--.*$", "", lines)
  paste(lines[lines != ""], collapse = "\n")

}