library(dplyr) # required for running example
tb <- head(iris) %>%
rtf_title(title = "Iris example") %>%
rtf_footnote(footnote = c("footnote 1", "footnote 2")) %>%
rtf_body()
r2rtf:::nrow_paragraph(attr(tb, "rtf_title"), 6.25)
r2rtf:::nrow_paragraph(attr(tb, "rtf_footnote"), 6.25)
Run the code above in your browser using DataLab