Nothing
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 = "")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.