Create multiple parameterised powerpoint reports using rmarkdown and purrr

render_decks.R

library(rmarkdown)
library(ggplot2)
library(purrr)

ppt_render <- function (data) {
  params <- list(data = data)
  group <- unique(data$class)
  
  rmarkdown::render("report.Rmd", output_file = paste0("mpg_", group, ".pptx"), params = params)
}

data_groups <- unique(mpg$class)

data_groups %>% 
  map(~ mpg %>% filter(class == .x)) %>%
  walk(ppt_render)

report.Rmd

---
title: "Create multiple PowerPoint Decks with `rmarkdowan` & `purrr`"
author: Paul Campbell
date: July 24, 2018
output: powerpoint_presentation
---

```{r plot, echo=FALSE}
library(ggplot2)

ggplot(params$data, aes(displ, hwy)) +
  geom_point() +
  labs(title = paste("Class:", unique(params$data$class)))
```