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"
)
items
Run the code above in your browser using DataLab