update tools to support incremental knit

Author: t-kalinowski

tools/knit-examples.R

@@ -15,5 +15,13 @@ files <- list.files("vignettes-src/examples",
 files <- unique(c(files, grep("index", files, value = TRUE)), fromLast = TRUE)
 
 for (f in files) {
+  output <- sub("vignettes-src/", "vignettes/", f, fixed=TRUE)
+  if (file.exists(output)) {
+    age <- difftime(Sys.time(), file.info(output)$mtime, units = "days")
+    if (age < 1) {
+      cli::cli_inform(c("*" = "recently rendered, skipping"))
+      next
+    }
+  }
   knit_vignette(f, external = TRUE)
 }

tools/knit-vignettes.R

@@ -30,6 +30,14 @@ files <- list.files("vignettes-src",
 
 for (f in files) {
   cli::cli_h1(f)
+  output <- sub("vignettes-src/", "vignettes/", f, fixed=TRUE)
+  if (file.exists(output)) {
+    age <- difftime(Sys.time(), file.info(output)$mtime, units = "days")
+    if (age < 1) {
+      cli::cli_inform(c("*" = "recently rendered, skipping"))
+      next
+    }
+  }
   knit_vignette(f, external = TRUE)
 }
 

tools/knit.R

@@ -6,6 +6,7 @@ knit_keras_init <- function(backend = NULL) {
   # reticulate::use_virtualenv("r-keras")
   if(!is.null(backend))
     keras3::use_backend(backend)
+
   options(width = 76)
 
   keras_init <- function() {