library(rmarkdown)
rmd_file_src <- system.file(
package = "officedown", "examples", "word_loop.Rmd")
rmd_file_des <- tempfile(fileext = ".Rmd")
if(pandoc_available()){
file.copy(rmd_file_src, to = rmd_file_des)
docx_file_1 <- tempfile(fileext = ".docx")
render(rmd_file_des, output_file = docx_file_1, quiet = TRUE)
if(file.exists(docx_file_1)){
message("file ", docx_file_1, " has been written.")
}
}
Run the code above in your browser using DataLab