have inf_mr() watch all Rmd files (#349)

Co-authored-by: Yihui Xie <[email protected]>

Author: jvolkening

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: xaringan
 Type: Package
 Title: Presentation Ninja
-Version: 0.23.1
+Version: 0.23.2
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0003-0645-5666")),
     # contributors ordered alphabetically below

NEWS.md

@@ -1,5 +1,6 @@
 # CHANGES IN xaringan VERSION 0.24
 
+- When running `xaringan::inf_mr()`, the Rmd file will be recompiled when any Rmd file under the same directory is updated. This allows for rebuilding the slides when child documents are used and updated. Previously, the Rmd file would be recompiled only if itself is updated (thanks, @jvolkening, #349).
 
 # CHANGES IN xaringan VERSION 0.23
 

R/render.R

@@ -298,11 +298,14 @@ infinite_moon_reader = function(moon, cast_from = '.', ...) {
     # otherwise watch files under the dir of the moon
     d = if (p <- is_package()) 'inst' else dirname(moon)
     files = if (getOption('xaringan.inf_mr.aggressive', TRUE)) function() {
-      c(list.files(
-        d, '[.](css|js|png|gif|jpeg)$', full.names = TRUE, recursive = TRUE
-      ), moon)
+      list.files(
+        d, '[.](css|js|png|gif|jpeg|Rmd)$', full.names = TRUE, recursive = TRUE
+      )
     } else function() moon
-    mtime = function() file.info(files())[, 'mtime']
+    mtime = function() {
+      fs = files()
+      setNames(file.info(fs)[, 'mtime'], fs)
+    }
     html <<- normalize_path(rebuild())  # render Rmd initially
     l = max(m <- mtime())  # record the latest timestamp of files
     r = servr:::is_rstudio(); info = if (r) slide_context()
@@ -331,9 +334,11 @@ infinite_moon_reader = function(moon, cast_from = '.', ...) {
         }
         return(FALSE)
       }
+      # is any Rmd updated?
+      u2 = !u && any(m2[grep('[.]Rmd$', names(m2))] > l)
       l <<- max(m2)
       # moon or dependencies have been updated, recompile and reload in browser
-      if (p || tail(m2, 1) > tail(m, 1)) {
+      if (p || u2) {
         rebuild(); if (r) info <<- slide_context()
       }
       l <<- max(m <<- mtime())