source('_setup.R')
# knitr::clean_cache(TRUE)
htmltools::tagList(
  xaringanExtra::use_clipboard(
    button_text = "<i class=\"fa fa-clipboard\"></i>",
    success_text = "<i class=\"fa fa-check\" style=\"color: #37abc8\"></i>",
  ),
  rmarkdown::html_dependency_font_awesome()
)
# xaringanExtra::use_scribble()

cols <- c('#777777','#d66666','#f0f518','#2eb8dd','#6a8868')

plan <- function(focus) {
  dat <- c(
    "### Part 1",
    "### Part 2",
    "### Part 3"
  )
  dat[focus] <- glue::glue("#{dat[focus]}")
  for(i in 1:length(dat)) {
    cat(dat[[i]])
    cat("\n")
  }
}

class: title-slide, middle

Project title

David Beauchesne

Webinar

2023-03-27


class: inverse, center, middle

Research team



Research team



class: inverse, center, middle

Project shortname


plan(1)

Part 1


class: inverse, center, middle

Project shortname


plan(2)

Part 2


class: inverse, center, middle

Project shortname


plan(3)

Part 3


class: inverse, center, middle

Acknowledgements


Because without your work, ours would not be possible


Acknowledgements


Reach out for any questions/comments!




class: inverse, center, middle

Additional slides





Ecosystem-Assessments/compendium documentation built on July 20, 2024, 2:44 a.m.