# NOT RUN {
library(huxtable)
ht <- huxtable(
column1 = 1:5,
column2 = letters[1:5]
)
rtf <- rtf_doc(ht, list(hf_line("aTitle", font_size = 15)))
pharmaRTF::font_size(rtf)
# Returns 12
pharmaRTF::font_size(rtf) <- 14
pharmaRTF::font_size(rtf$titles[[1]])
# Returns 15
pharmaRTF::font_size(rtf)
# Returns 14
# }
Run the code above in your browser using DataLab