addDocument: Add an external document into a document object
In ReporteRs: Microsoft Word and PowerPoint Documents Generation

Description Usage Arguments Details Value See Also Examples

Add an external document into a document object

addDocument(doc, filename, ...)

## S3 method for class 'docx'
addDocument(doc, filename, ...)

`doc`	document object
`filename`	`"character"` value, complete filename of the external file
`...`	further arguments passed to other methods

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.

a document object

docx

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