library(officer)
items <- block_list_items(
list_item(fpar(ftext("Item 1", fp_text(color = "red"))), level = 1),
list_item(fpar("Sub-item"), level = 2),
list_item(fpar("Item 2"), level = 1),
list_type = "bullet"
)
doc <- read_docx()
doc <- body_add_list(doc, items = items)
print(doc, target = tempfile(fileext = ".docx"))
Run the code above in your browser using DataLab