library(magrittr)
read_docx() %>% set_doc_properties(title = "title",
subject = "document subject", creator = "Me me me",
description = "this document is empty",
created = Sys.time()) %>% doc_properties()
Run the code above in your browser using DataLab