long_talk <- TRUE     # if FALSE then chunks with eval=long_talk will not be
                      # evaluated, as we are writing a shorter version. This
                      # should build, if not just use commit 9f5f209, which has
                      # no long_talk options. From now on we are only
                      # maintaining pacea-talk.Rmd.

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "",
  global.par = TRUE,  # set par values to be global (once changed)
  fig.width = 6,
  fig.height = 4,
  fig.align = "center",
  out.width = "60%"
  #out.height = 400
)

# load_all()    # Do this the first time and if update the package while writing
# the talk. Have commented as it reloads each time, which isn't necessary.
library(dplyr)
library(tibble)
library(kableExtra)

options(pillar.print_max = 6,   # number of rows to show for a tibble
        pillar.print_min = 6)
par("mai" = c(1.02, 0.82, 0.3, 0.42))   # default is 1.02 0.82 0.82 0.42

# https://bookdown.org/yihui/rmarkdown-cookbook/font-color.html . For example:
# `r colorize("hello", "blue")`
colorize <- function(x, color){
  if(knitr::is_latex_output()) {
    sprintf("\\textcolor{%s}{%s}", color, x)
  } else if(knitr::is_html_output()) {
    sprintf("<span style='color: %s;'>%s</span>", color,
      x)
  } else x
}
knitr::include_graphics(paste0(here::here(),
                               "/talks/talks-manual-figures/pacea-release-title-slide-uvic.png"))









pbs-assess/PACea documentation built on April 17, 2025, 11:36 p.m.