Add an external document into a document object
addDocument(doc, filename, ...)# S3 method for docx
addDocument(doc, filename, ...)
document object
"character"
value, complete filename
of the external file
further arguments passed to other methods
a document object
ReporteRs does only copy the document as an external file. Headers and footers are also imported and displayed. This function is not to be used to merge documents.
# NOT RUN { doc.filename <- "addDocument_example.docx" # set default font size to 10 options( "ReporteRs-fontsize" = 10 ) doc2embed <- docx( ) img.file <- file.path( Sys.getenv("R_HOME"), "doc", "html", "logo.jpg" ) if( file.exists(img.file) && requireNamespace("jpeg", quietly = TRUE) ){ dims <- attr( jpeg::readJPEG(img.file), "dim" ) doc2embed <- addImage(doc2embed, img.file, width = dims[2]/72, height = dims[1]/72) writeDoc( doc2embed, file = "external_file.docx" ) doc <- docx( ) doc <- addDocument( doc, filename = "external_file.docx" ) writeDoc( doc, file = doc.filename ) } # }