## ----global.options, include = FALSE------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.align = 'center',
  fig.width=6,
  fig.height=4
)

## ----setup, include=FALSE-----------------------------------------------------
pkgs <- c("iheiddown", "magrittr", "ggplot2")
lapply(pkgs, library, character.only = TRUE)

## ---- eval = F, echo = T------------------------------------------------------
#  # Install the required packages
#  install.packages("iheiddown")
#  remotes::install_github("yihui/xaringan")
#  install.packages("servr") # This will allow us to see the slides we are editing
#  
#  # Load the packages in your session
#  pkgs <- c("iheiddown", "xaringan", "servr")
#  lapply(pkgs, library, character.only = TRUE)

## ---- echo = FALSE, out.width="80%", fig.cap="Step 1: Open a project"---------
  knitr::include_graphics("images/presentations/0-OpenProject.png", dpi = 144)

## ---- echo = FALSE, out.width="80%", fig.cap="Step 2: Select a template"------
  knitr::include_graphics("images/presentations/1-SelectTemplate.png", dpi = 144)

## ---- eval=FALSE, echo=TRUE---------------------------------------------------
#  # Install/Load the servr package if you haven't done it already
#  install.packages("servr")
#  library(servr)
#  
#  # Serve your {xaringan} presentation to see live updates when you edit
#  iheiddown::preview_start()
#  
#  # Close the connection to the live rendering when you're done
#  iheiddown::preview_stop()

## ---- echo = TRUE, eval = F---------------------------------------------------
#  install.packages("RefManageR")

## ---- eval=FALSE, echo = TRUE-------------------------------------------------
#  # Initializes the bibliography
#  library(RefManageR)
#  BibOptions(check.entries = FALSE,
#             bib.style = "authoryear", # Bibliography style
#             max.names = 3, # Max author names displayed in bibliography
#             sorting = "nyt", #Name, year, title sorting
#             cite.style = "authoryear", # citation style
#             style = "markdown",
#             hyperlink = FALSE,
#             dashed = FALSE)
#  myBib <- ReadBib("myBib.bib", check = FALSE)
#  # Note: don't forget to clear the knitr cache to account for changes in the
#  # bibliography.