Bagaimana cara membaca konten file .sql menjadi skrip R untuk menjalankan kueri?

Saya sendiri mengalami masalah dengan membaca file sql, dan telah menemukan bahwa sering kali sintaks rusak jika ada komentar satu baris di file sql. Karena di R Anda menyimpan pernyataan sql sebagai string baris tunggal, jika ada tanda hubung ganda di sql, itu pada dasarnya akan mengomentari kode apa pun setelah tanda hubung ganda.

Ini adalah fungsi yang biasanya saya gunakan setiap kali saya membaca file .sql untuk digunakan di 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)
}