R/steps-bookdown.R

In ropenscilabs/tic: Tasks Integrating Continuously: CI-Agnostic Workflow Definitions

BuildBookdown <- R6Class(
  "BuildBookdown",
  inherit = TicStep,
  public = list(
    initialize = function(...) {
      private$bookdown_args <- list(...)
      super$initialize()
    },
    run = function() {
      do.call(bookdown::render_book, private$bookdown_args)
    },
    prepare = function() {
      verify_install(c("bookdown"))
      super$prepare()
    }
  ),
  private = list(
    bookdown_args = NULL
  )
)

#' Step: Build a bookdown book
#'
#' Build a bookdown book using [bookdown::render_book()].
#'
#' @param ... See [bookdown::render_book].
#'
#' @export
#' @examples
#' dsl_init()
#'
#' get_stage("script") %>%
#'   add_step(step_build_bookdown("."))
#'
#' dsl_get()
step_build_bookdown <- function(...) {
  BuildBookdown$new(...)
}