# NOT RUN {
library(huxtable)
ht <- huxtable(
column1 = 1:5,
column2 = letters[1:5]
)
rtf <- rtf_doc(ht, list(hf_line("aTitle")))
pharmaRTF::align(rtf$titles[[1]])
# Returns "center"
pharmaRTF::align(rtf$titles[[1]]) <- "left"
# Sets alignment to 'left'
pharmaRTF::text(rtf$titles[[1]]) <- c("Left Text", "Right Text")
pharmaRTF::align(rtf$titles[[1]]) <- "split"
# When rtf is printed, "Left Text" will be left aligned, and "Right Text"
# will be right aligned. Both will appear on the same line in the document.
# }
Run the code above in your browser using DataLab