doc <- rtf_doc()
doc <- rtf_set_paragraph_style(
doc,
style_id = "Callout",
fp_p = fp_par(text.align = "center", padding = 6),
fp_t = fp_text_lite(bold = TRUE, color = "#1F4E79")
)
doc <- rtf_add(doc, "Heads up", style = "Callout")
print(doc, target = tempfile(fileext = ".rtf"))
Run the code above in your browser using DataLab