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