knitr::opts_chunk$set(echo = FALSE, fig.cap = TRUE)
library(officedown)
library(officer)
bl_template <- function(txt) {
  block_list(
    fpar(values = txt, fp_t = fp_text_lite(color = "orange", bold = TRUE))
  )
}
sec_pr <- prop_section(
  header_default = bl_template("hello default header"),
  footer_default = bl_template("hello default footer"),
  header_even = bl_template("hello even header"),
  footer_even = bl_template("hello even footer"),
  header_first = bl_template("hello first header"),
  footer_first = bl_template("hello first footer")
)

r officedown:::str_lorem

r run_columnbreak()``r officedown:::str_lorem

for(i in 1:2) cat(officedown:::str_lorem, "\n\n", sep = "")
block_section(prop_section(type = "continuous"))
for(i in 1:15) cat(officedown:::str_lorem, "\n\n", sep = "")
block_section(sec_pr)
for(i in 1:2) cat(officedown:::str_lorem, "\n\n", sep = "")


davidgohel/worded documentation built on Feb. 23, 2024, 1:09 a.m.