Untitled

knitr::opts_chunk$set(echo = FALSE, fig.cap = TRUE)
library(officedown)
library(officer)
library(rvg)
fpt_blue_bold <- fp_text(color = "#006699", bold = TRUE)
fpt_red_italic <- fp_text(color = "#C32900", italic = TRUE)

value <- block_list(
  fpar(ftext("hello world", fpt_blue_bold)),
  fpar(ftext("hello", fpt_blue_bold), " ",
       ftext("world", fpt_red_italic)),
  fpar(
    ftext("hello world ", fpt_red_italic),
          hyperlink_ftext(
  href = "https://cran.r-project.org/index.html",
  text = "some text", prop = fpt_red_italic)))
value

block_list and fpar

value
fpar(
    ftext("hello world ", fpt_red_italic),
          hyperlink_ftext(
  href = "https://cran.r-project.org/index.html",
  text = "some text", prop = fpt_red_italic))

Slide with Plot

dml(plot(pressure))

Slide with DF

head(pressure)


Try the officedown package in your browser

Any scripts or data that you put into this service are public.

officedown documentation built on Sept. 3, 2023, 1:07 a.m.