R言語/ reporteRs複数の書類を書くためのループ

Question

私は、R言語とreporteRを使用してプレーンテキストファイルから書式設定された単語書類を生成するスクリプトを作成しようとしています。追加、

doc <- docx(template="temp.docx") 

次：次にこれをDOCXする抽出されたテキストを追加

fileName <- "C:/MyFolder/TEXT_TO_BE_PROCESSED.txt" 
con <- file(fileName,open="r") 
line <- readLines(con) 
close(con) 

：私はこのスレッドDealing with readLines() function in Rで見つかったこのコードを使用しています1つのTXTからテキストを抽出する

タイトル（txtファイルの最初の行）

doc <- addParagraph(doc, value = line[1], bookmark = "titre", stylename = "Titre") 

次に、txtファイルの本体

doc <- addParagraph(doc, value = line[2:length(line)], value = line[2:55], stylename = "Contenu") 

最後に、私は私が複数のTXTファイルから複数のdocxファイルを生成することができるようにループを作成することができるようにしたいのdocx

writeDoc(doc, file = "output-file.docx") 

を作成します。私はあなたが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")) 
}) 

Answer 1

あなたの助けを本当に感謝します：長さ（ライン：

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

が再びリチャード

Answer 2

とソリューションをこのような何かを行うことができます