Add an external document into a document object

Add an external document into a document object

addDocument(doc, filename, ...)

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

Arguments

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

Value

a document object

Details

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.

See also

docx

Examples

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