# NOT RUN {
library(huxtable)
ht <- huxtable(
column1 = 1:5,
column2 = letters[1:5]
)
rtf <- rtf_doc(ht, list(hf_line("aTitle")))
pagesize(rtf)
# Returns c(height = 8.5, width = 11.0)
pagesize(rtf) <- c(height = 12)
# Sets height of page to 12 inches
orientation(rtf) <- 'portrait'
pagesize(rtf)
# width height
# 8.5 12.0
# Note: Despite changing orientation, attributes don't change
# }
Run the code above in your browser using DataLab