Como extrair o conteúdo de arquivos SQL usando R?

Tenho pasta / diretório de um dos meus colegas cheio desqlafirmações. A pasta é atualizada por ele diariamente também. Eu gostaria de documentar essessqldeclarações para futuros colegas. No entanto, estou procurando uma maneira de "automatizar" esse processo. Eu pensei em usarcrontab uma vez por semana e execute umR-Markdown arquivo que atualiza automaticamente o existenteR-Markdown Arquivo.

Minha abordagem é a seguinte:

path = "c:/SQL_files/"
out.file<-""
file.names <- dir(path, pattern =".sql") # here I changed `.txt` to `.sql`
for(i in 1:length(file.names)){
file <- read.csv2.sql(file.names[i],header=TRUE, sep=";",    stringsAsFactors=FALSE)
  out.file <- rbind(out.file, file)
}


# That second approach comes very close, but just generates a `.txt` for the first
#`.sql` file in the directory with the error:

   Error in match.names(clabs, names(xi)) : 
   names do not match previous names 

onde estão os arquivos:

 [1] "c:/SQL_files/first.sql"                                            
 [2] "c:/SQL_files/second.sql"     

 path = "c:/SQL_files/"
 out.file<-""
files <- list.files(path=path, pattern="*.sql", full.names=T, recursive=FALSE)
for(i in 1:length(files)){
  file <- read.table(files[i],header=TRUE, sep=";", stringsAsFactors=FALSE)
  out.file <- rbind(out.file, file)
}

oloop que extrai o conteúdo do.sql parece não capturar o conteúdo (no primeiro exemplo) ou captura apenas o conteúdo do primeiro arquivo no diretório (segundo exemplo). Então minha pergunta. Existe uma maneira de extrair conteúdo de umSQL Text File (.sql)? O que pode resultar na.txt/.Rmd da seguinte maneira: (mas não precisa):

saída do primeiro loop:my_sql_statement.sql

saída do segundo loop:Select * From Data

questionAnswers(2)

yourAnswerToTheQuestion