# NOT RUN {
ht <- huxtable::huxtable(
column1 = 1:5,
column2 = letters[1:5]
)
rtf <- rtf_doc(ht, list(hf_line("aTitle")))
header_rows(rtf)
# This is a wrapper for header_rows(x$table)
header_rows(rtf$table)
# Both of these return 1, the default
header_rows(rtf$table) <- 0
# Sets header_rows to 0
# }
Run the code above in your browser using DataLab