more info

jangorecki · Oct 17, 2024 · d6b3e07 · d6b3e07
1 parent a8bea58
commit d6b3e07
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 13 deletions.
diff --git a/.github/workflows/pkgup.yaml b/.github/workflows/pkgup.yaml
@@ -46,6 +46,7 @@ jobs:
           Rscript -e 'litedown::fuse_site("docs")'
           mkdir -p public
           find docs -name '*.html' -print0 | cpio -pvdmB --null public
+          ls -R public
           mv public/docs/* public
           rm -r public/docs
       - name: repo

diff --git a/docs/vignettes.Rmd b/docs/vignettes.Rmd
@@ -6,20 +6,24 @@ 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)
-title = function(f) {
-    title1 = function(f) {
-        l = readLines(f)
-        t = paste(head(strsplit(basename(f), ".", fixed=TRUE)[[1L]], -1L), collapse=".") ## default, basename without extension
-        for (i in seq_along(l)) {
-            if (substr(l[i], 1L, 6L) != "title:")
-                next
-            t = trimws(gsub("title:", "", l[i], fixed=TRUE))
-            break
+if (!length(rmd)) {
+    cat("no vignettes\n")
+} else {
+    title = function(f) {
+        title1 = function(f) {
+            l = readLines(f)
+            t = paste(head(strsplit(basename(f), ".", fixed=TRUE)[[1L]], -1L), collapse=".") ## default, basename without extension
+            for (i in seq_along(l)) {
+                if (substr(l[i], 1L, 6L) != "title:")
+                    next
+                t = trimws(gsub("title:", "", l[i], fixed=TRUE))
+                break
+            }
+            t
         }
-        t
+        sapply(f, title1)
     }
-    sapply(f, title1)
+    html = list.files("./vignettes", "*.html", full.names=TRUE)
+    lapply(html, function(f) cat(sprintf("[%s](%s)\n", title(rmd), f))) |> invisible()
 }
-lapply(html, function(f) cat(sprintf("[%s](%s)\n", title(rmd), f))) |> invisible()
 ```