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
class: inverse, center, middle
class: inverse, center, middle
plan(1)
class: inverse, center, middle
plan(2)
class: inverse, center, middle
plan(3)
class: inverse, center, middle
class: inverse, center, middle
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.