inst/templates/_drake.R

In webbedfeet/coursedown: Creating course materials using R Markdown

library(drake)
library(fs)
library(here)
suppressPackageStartupMessages(library(tidyverse))
library(bookdown)

last_drake = max(dir_info('.drake')$modification_time)

slides_rmdfiles <- dir_ls('slides/lectures/', glob = '*.Rmd')
slides_outdir <- here::here('docs','slides','lectures')
slides_outrmd <- fs::path('docs',slides_rmdfiles)
slides_outpdf <- str_replace(slides_outrmd, 'Rmd','pdf')

hw_rmdfiles <- dir_ls('assignments/HW', glob = '*.Rmd')
hw_outdir <- here::here('docs','assignments','HW')
hw_outrmd <- fs::path('docs',hw_rmdfiles)

top_rmdfiles <- dir_ls('.', glob = '*.Rmd')

full_plan <- drake_plan(
  create_slides_html = target(
    rmarkdown::render(knitr_in(rmdf), output_dir=slides_outdir),
    transform = map(rmdf=!!slides_rmdfiles)
  ),
  create_slides_pdf = target(
    coursedown::slide2pdf(knitr_in(rmdf)),
    transform = map(rmdf = !!slides_rmdfiles)
  ),
  make_slide_index = target(
    rmarkdown::render_site(input = knitr_in('slides/index.Rmd')),
    trigger = trigger(depend = all(file_exists(!!slides_outrmd)))
  ),
  create_hw_html = target(
    rmarkdown::render(knitr_in(rmdf), output_dir = hw_outdir),
    transform = map(rmdf = !!hw_rmdfiles)
  ),
  make_hw_index = target(
    rmarkdown::render_site(input = knitr_in(here::here('assignments'))),
    trigger = trigger(depend = all(file_exists(!!hw_outrmd)))
  ),
  create_notes_html = target(
    coursedown::make_book(knitr_in('notes/index.Rmd'),"bookdown::gitbook"),
    trigger = trigger(condition =
                        (max(fs::dir_info('notes',glob = '*.Rmd')$modification_time) > last_drake))
  ),
  create_notes_pdf = target(
    coursedown::make_book(knitr_in('notes/index1.Rmd'),'bookdown::pdf_book'),
    trigger = trigger(condition =
                        (max(fs::dir_info('notes',glob = '*.Rmd')$modification_time) > last_drake))
  ),
  create_top = target(
    rmarkdown::render_site(input = knitr_in(rmdf)),
    transform = map(rmdf = !!top_rmdfiles)
  )
)


drake_config(full_plan)