Как да прочетем съдържанието на .sql файл в R скрипт, за да изпълним заявка?

Аз самият имах проблеми с четенето на sql файлове и открих, че често синтаксисът се нарушава, ако има коментари на един ред в sql. Тъй като в R съхранявате оператора sql като низ от един ред, ако има двойни тирета в sql, той по същество ще коментира всеки код след двойното тире.

Това е функция, която обикновено използвам, когато чета .sql файл, който да се използва в R.

getSQL <- function(filepath){
  con = file(filepath, "r")
  sql.string <- ""

  while (TRUE){
    line <- readLines(con, n = 1)

    if ( length(line) == 0 ){
      break
    }

    line <- gsub("\\t", " ", line)

    if(grepl("--",line) == TRUE){
      line <- paste(sub("--","/*",line),"*/")
    }

    sql.string <- paste(sql.string, line)
  }

  close(con)
  return(sql.string)
}