Q: R language/reporteRs loop to write multiple docx I'm trying (as hard as i can) to create a script that will generate formatted word documents from plain text files using R language and reporteRs.
To extract text from one txt i'm using this code found on this thread Dealing with readLines() function in R :
fileName <- "C:/MyFolder/TEXT_TO_BE_PROCESSED.txt"
con <- file(fileName,open="r")
line <- readLines(con)
close(con)

Then add the extracted text to docx with this :
doc <- docx(template="temp.docx")

Next, adding the title (first line of the txt file)
doc <- addParagraph( doc, value = line[1], bookmark = "titre", stylename = "Titre")

then the body of the txt file
doc <- addParagraph( doc, value = line[2:length(line)], value = line[2:55], stylename = "Contenu")

Finally I create the docx
writeDoc(doc, file = "output-file.docx")

I want to be able to create a loop so I can generate multiple docx from multiple txt files. I will really appreciate your help 

A: You can do something like this with lapply
myFiles <- c("C:/MyFolder/TEXT_TO_BE_PROCESSED.txt", "C:/MyFolder/TEXT_TO_BE_PROCESSED2.txt") # or use list.files()

lapply(myFiles, function(fileName){
  con <- file(fileName,open="r")
  line <- readLines(con) # you could just call readLines(fileName)
  close(con)
  doc <- docx(template="temp.docx")
  doc <- addParagraph( doc, value = line[1], bookmark = "titre", stylename = "Titre")
  doc <- addParagraph( doc, value = line[2:length(line)], value = line[2:55], stylename = "Contenu")
  writeDoc(doc, file = paste0(fileName, "out.docx"))
})


A: The solution :
myFiles <- list.files()

lapply(myFiles, function(fileName){
line <- readLines(fileName)
doc <- docx(template="temp.docx")
doc <- addParagraph( doc, value = line[1], bookmark = "titre", 
stylename = "Titre »)
doc <- addParagraph( doc, value = line[2:length(line)], stylename = "Contenu")
writeDoc(doc, file = paste0(fileName, ".docx"))
})

Thank you again Richard
