## 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 )
# }
# ## End(Not run)
Run the code above in your browser using DataLab