Presentation Ninja

# Presentation Ninja
## xaringan to powerpooint
### Reluctant Presenter
### 30 Minutes from Now

---

# I made so many fancy slides!

---
background-image: url(img/data-ai-machine-learning-buzzwords.jpg)
background-size: 55%
background-position: 96% 50%

# Like this one!

1. mtcars
1. airquality
1. starwars
1. diamonds
]

---

# I made a plot with some R code

```r
library(ggplot2)
ggplot(mpg) + 
  aes(cty, hwy, color = drv) +
  geom_point()
```

---
class: center

# I even have a cat gif

![](img/cat.gif)

---

# and that's when they told me...

# pOwErPoInT oNlY!!1!1!!

---
class: hide-count
background-image: url(img/single-tear.jpg)
background-size: cover

---

```r
pagedown::chrome_print("slides.html", output = "slides.pdf")
pages <- pdftools::pdf_info("slides.pdf")$pages
filenames <- sprintf("slides/slides_%02d.png", 1:pages)
dir.create("slides")
pdftools::pdf_convert("slides.pdf", filenames = filenames)
slide_images <- glue::glue(
  "
---

![]({filenames}){{width=100%, height=100%}}

")
slide_images <- paste(slide_images, collapse = "\n")
md <- glue::glue(
  "
  ---
  output: powerpoint_presentation
  ---
  
  {slide_images}
  "
)
cat(md, file = "slides_powerpoint.Rmd")
rmarkdown::render("slides_powerpoint.Rmd")  ## powerpoint!
```

---