From 42b6955632acabb207a2f2ba0b874dec3f02e868 Mon Sep 17 00:00:00 2001 From: Jeroen Ooms Date: Thu, 26 Dec 2024 17:22:59 +0100 Subject: [PATCH] Try again setting litedown vignette engine See https://github.com/r-universe-org/help/issues/529 --- R/articles.R | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/R/articles.R b/R/articles.R index 50c0c73..e0ad9ca 100644 --- a/R/articles.R +++ b/R/articles.R @@ -104,6 +104,19 @@ replace_rmarkdown_engine <- function(){ }, tangle = old_engine$tangle, pattern = old_engine$pattern) }) + # Litedown (TODO: do not override slides) + setHook(packageEvent("litedown", "onLoad"), function(...) { + message("Found litedown! Replacing vignette theme...") + old_engine <- tools::vignetteEngine('vignette', package='litedown') + tools::vignetteEngine('litedown', package = 'litedown', weave = function(file, ...){ + mdfile <- file.path(tempdir(), paste0(tools::file_path_sans_ext(file), '.md')) + load_custom_output_package(file) + litedown::fuse(file, mdfile, ...) + htmlfile <- render_article(mdfile) + file.copy(htmlfile, '.', overwrite = TRUE) + }, tangle = old_engine$tangle, pattern = old_engine$pattern) + }) + # Experimental quarto override setHook(packageEvent("quarto", "onLoad"), function(...) { message("Found quarto! Replacing html engine...")