use xfun 0.52 and rename wd.out to wd_out (working directory for output)

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: litedown
 Type: Package
 Title: A Lightweight Version of R Markdown
-Version: 0.6.6
+Version: 0.6.7
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0003-0645-5666", URL = "https://yihui.org")),
     person("Tim", "Taylor", role = "ctb", comment = c(ORCID = "0000-0002-8587-7113")),
@@ -22,7 +22,7 @@ Depends: R (>= 3.2.0)
 Imports:
     utils,
     commonmark (>= 1.9.5),
-    xfun (>= 0.51)
+    xfun (>= 0.52)
 Suggests:
     rbibutils,
     rstudioapi,

R/fuse.R

@@ -464,9 +464,9 @@ fuse = function(input, output = NULL, text = NULL, envir = parent.frame(), quiet
   if (is_file(input) && is.null(opts$wd)) opts$wd = dirname(normalizePath(input))
 
   # store output dir so we can calculate relative paths for plot files later
-  .env$wd.out = normalize_path(
+  .env$wd_out = normalize_path(
     if (is.null(output_base)) {
-      if (is.character(.env$wd.out)) .env$wd.out else '.'
+      if (is.character(.env$wd_out)) .env$wd_out else '.'
     } else dirname(output_base)
   )
   # store the environment and output format
@@ -746,7 +746,7 @@ fuse_code = function(x, blocks) {
   p3 = unlist(p2)  # vector of plot paths
   # get the relative path of the plot directory
   fig.dir = if (length(p3)) tryCatch(
-    sub('^[.]/', '.', paste0(dirname(relative_path(p3[1], .env$wd.out)), '/')),
+    sub('^[.]/', '.', paste0(dirname(relative_path(p3[1], .env$wd_out)), '/')),
     error = function(e) NULL
   )
 

R/utils.R

@@ -40,11 +40,7 @@ sans_yaml = function(x) {
   x
 }
 
-# TODO: remove `if` after xfun 0.52
-split_chunk = function(...) {
-  f = xfun::divide_chunk
-  if ('...' %in% names(formals(f))) f(..., use_yaml = FALSE) else f(...)
-}
+split_chunk = function(...) xfun::divide_chunk(..., use_yaml = FALSE)
 
 is_lang = function(x) is.symbol(x) || is.language(x)