# NOT RUN {
library(huxtable)
ht <- huxtable(
column1 = 1:5,
column2 = letters[1:5]
)
rtf <- rtf_doc(ht, list(hf_line("aTitle")))
column_header_buffer(rtf)
# Returns c(top = 0, bottom = 0), the default
column_header_buffer(rtf) <- c(bottom = 1)
# Sets the bottom column_header_buffer to 1
# }
Run the code above in your browser using DataLab