pause for 2 seconds after an Rmd file is compiled, so that Hugo server can be sure about the last changed file and navigate to its output page

this trick should mostly fix #486

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: blogdown
 Type: Package
 Title: Create Blogs and Websites with R Markdown
-Version: 0.20.17
+Version: 0.20.18
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0003-0645-5666")),
     person("Beilei", "Bian", role = "ctb"),

R/render.R

@@ -97,8 +97,8 @@ timestamp_filter = function(files) {
   files[require_rebuild(output_file(files), files)]
 }
 
-# raw indicates paths of dependencies are not encoded in the HTML output
-build_rmds = function(files) {
+# build R Markdown posts
+build_rmds = function(files, pause = FALSE) {
   if (length(files) == 0) return()
   # ignore files that are locked (being rendered by another process)
   i = !file.exists(locks <- paste0(files, '.lock~'))
@@ -134,6 +134,7 @@ build_rmds = function(files) {
     if (file.copy(shared_yml, copy)) copied_yaml <<- c(copied_yaml, copy)
   }
 
+  out = NULL
   for (f in files) {
     d = dirname(f)
     out = output_file(f, to_md <- is_rmarkdown(f))
@@ -152,6 +153,12 @@ build_rmds = function(files) {
         append(s, 'draft: yes', 1)
       })
     }
+    # when serving the site, pause for a moment so Hugu server's auto navigation
+    # can navigate to the `out` page
+    if (pause || (!is.null(out) && length(opts$get('served_dirs')))) {
+      Sys.sleep(getOption('blogdown.build_rmds.wait', 2))
+      xfun::process_file(out)
+    }
     message('Done.')
   }
 }

R/site.R

@@ -13,7 +13,7 @@ blogdown_site = function(input, ...) {
     # rendering a single file (by clicking the Knit button)
     if (!is.null(input_file)) xfun::in_dir(site_root(), {
       input_file = rmarkdown::relative_to(getwd(), input_file)
-      build_rmds(input_file)
+      build_rmds(input_file, pause = TRUE)
       # run serve_site() to preview the site if the server has not been started
       if (interactive()) preview_site() else tryCatch(
         rstudioapi::sendToConsole('blogdown:::preview_site()', echo = FALSE)