fix #88: the prefix ./ should be removed from fig.dir instead of being substituted with .(#94)

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

Author: J-Moravec

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: litedown
 Type: Package
 Title: A Lightweight Version of R Markdown
-Version: 0.7.2
+Version: 0.7.3
 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")),

NEWS.md

@@ -4,6 +4,8 @@
 
 - `fuse(text = '# text')` will be treated as Markdown input instead of R code input (thanks, @chuxinyuan, #102).
 
+- Fixed the bug that the chunk option `fig.path` does not work when it does not contain `/` (thanks, @J-Moravec, #88).
+
 # CHANGES IN litedown VERSION 0.7
 
 - `pkg_manual()` will exclude help pages with the keyword `internal` (thanks, @TimTaylor, #78).

R/fuse.R

@@ -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
   )
 

tests/fig_path.R

@@ -0,0 +1,24 @@
+src = '
+---
+output:
+  html:
+    options:
+      embed_resources: false
+---
+
+```{r}
+plot(1)
+```
+'
+
+old = litedown::reactor(fig.path = 'foo')
+out = litedown::fuse(text = src, output = 'markdown')
+stopifnot('![](<foochunk-1-1.png>)' %in% unlist(strsplit(out, '\n')))
+unlink('foochunk-1-1.png')
+
+litedown::reactor(fig.path = 'foo/bar')
+out = litedown::fuse(text = src, output = 'markdown')
+stopifnot('![](<foo/barchunk-1-1.png>)' %in% unlist(strsplit(out, '\n')))
+unlink('foo', recursive = TRUE)
+
+litedown::reactor(old)