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)


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