# NOT RUN {
#START_TAG_TEST
# Create a new document
doc = docx( title = "title" )
text = pot( value = "Hello Word"
, format = textProperties(color="red"
, font.size = 12
, font.weight = "bold"
, font.style = "italic"
, underlined = TRUE
, font.family = "Courier New"
)
) + " is rich"
doc <- addParagraph(doc, set_of_paragraphs(text), "Normal")
writeDoc( doc, "textProperties_example.docx" )
#STOP_TAG_TEST
# }
Run the code above in your browser using DataLab