Hoe lees ik de inhoud van een .sql-bestand in een R-script om een ​​query uit te voeren?

Ik heb zelf problemen gehad met het lezen van sql-bestanden en heb geconstateerd dat de syntaxis vaak wordt verbroken als er enkele regelopmerkingen in de sql staan. Aangezien je in R de sql-instructie opslaat als een enkele regelreeks, zal het in feite elke code na het dubbele streepje uit commentaar geven als er dubbele streepjes in de sql staan.

Dit is een functie die ik meestal gebruik wanneer ik lees in een .sql-bestand dat in R moet worden gebruikt.

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)
}