html links from future

jangorecki · Oct 17, 2024 · 51a9dc1 · 51a9dc1
1 parent 3028477
commit 51a9dc1
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/pkgup/vignettes.Rmd b/pkgup/vignettes.Rmd
@@ -6,9 +6,7 @@ if (tail(strsplit(getwd(), "/", fixed=TRUE)[[1L]], 1L) == "docs") {
 }
 invisible(file.copy("../vignettes", ".", recursive=TRUE))
 rmd = list.files("./vignettes", "*.Rmd", full.names=TRUE)
-html = list.files("./vignettes", "*.html", full.names=TRUE)
-if (length(html) != length(rmd))
-    stop("length(html) != length(rmd)")
+html = sapply(strsplit(html, ".", fixed=TRUE), function(f) paste(collapse=".", c(tail(f, -1L), "html"))
 if (!length(rmd)) {
     cat("no vignettes\n")
 } else {