nested parallelisation of .Rmd

generate-reports.R

library(tidyverse)
library(rmarkdown)
library(tictoc)
library(furrr)


wait_time <- 10


# intermediates_dir needed to guard against processes targeting the same files
# https://github.com/rstudio/rmarkdown/issues/1632#issuecomment-804649226
tic()
walk(1:4,
     {
       future_walk(1:10, ~render("report_template.Rmd", 
                                 output_file = str_glue("{.x}.html"), 
                                 params = list(rmd_wait = wait_time, report_name = .x),
                                 intermediates_dir = tempdir(),
                                 quiet = TRUE))
     })
toc("parallelised")

report_template.Rmd

---
params:
  rmd_wait: 10
  report_name: "foo"
title: "Untitled"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

This is report `r params$report_name`

## R Markdown

```{r}
Sys.sleep(params$rmd_wait)
```

```{r}
print(params$rmd_wait)
```

Thanks! this was useful for me today