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(...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.