# NOT RUN {
# Adding lines during rtf_doc construction
ht <- huxtable::huxtable(
column1 = 1:5,
column2 = letters[1:5]
)
titles_l <- list(
hf_line(c("The Title Left", "The Titles Right"), align = "split"),
hf_line("A Bold, italic Title", bold = TRUE, italic = TRUE,
align = "left", font_size = 20, font = "Times New Roman")
)
rtf <- rtf_doc(ht, titles = titles_l)
# Adding lines after rtf_doc construction
rtf <- add_footnotes(rtf,
hf_line("PAGE_FORMAT: Page %s of %s"),
hf_line("DATE_FORMAT: %H:%M %A, %B %d, %Y"),
hf_line("FILE_PATH: Source: %s")
)
# }
Run the code above in your browser using DataLab