still quotation

jangorecki · Oct 19, 2024 · e5143d3 · e5143d3
1 parent 5abd61f
commit e5143d3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/.github/workflows/pkgup.yaml b/.github/workflows/pkgup.yaml
@@ -48,7 +48,7 @@ jobs:
           echo -e '```{r, echo=FALSE}\nlitedown::pkg_manual()\n```' > .pkgup/doc/manual.Rmd
           #Rscript -e 'litedown::pkg_news(recent=0)' > .pkgup/doc/news.Rmd
           echo -e '```{r, echo=FALSE}\nlitedown::pkg_news(recent=0)\n```' > .pkgup/doc/news.Rmd
-          echo -e '```{r, echo=FALSE, results="asis"}\nrmd = list.files("./vignettes", "*.Rmd", full.names=TRUE)\nif (!length(rmd)) {\n    cat("no vignettes\\n")\n} else {\n    title = function(f) {\n        title1 = function(f) {\n            if (!file.exists(f))\n                stop("file ", f, " does not exists")\n            l = readLines(f)\n            t = paste(head(strsplit(basename(f), ".", fixed=TRUE)[[1L]], -1L), collapse=".") ## default, basename without extension\n            for (i in seq_along(l)) {\n                if (substr(l[i], 1L, 6L) != \"title:\")\n                    next\n                t = trimws(gsub("title:", "", l[i], fixed=TRUE))\n                break\n            }\n            t\n        }\n        sapply(f, title1)\n    }\n    html = paste0(substr(rmd, 1L, nchar(rmd)-3L), "html")\n    lapply(html, function(f) cat(sprintf("[%s](%s)\\n", title(rmd), f))) |> invisible()\n}\n```' > .pkgup/doc/vignettes.Rmd
+          echo -e '```{r, echo=FALSE, results="asis"}\nrmd = list.files("./vignettes", "*.Rmd", full.names=TRUE)\nif (!length(rmd)) {\n    cat("no vignettes\\n")\n} else {\n    title = function(f) {\n        title1 = function(f) {\n            if (!file.exists(f))\n                stop("file ", f, " does not exists")\n            l = readLines(f)\n            t = paste(head(strsplit(basename(f), ".", fixed=TRUE)[[1L]], -1L), collapse=".") ## default, basename without extension\n            for (i in seq_along(l)) {\n                if (substr(l[i], 1L, 6L) != "title:")\n                    next\n                t = trimws(gsub("title:", "", l[i], fixed=TRUE))\n                break\n            }\n            t\n        }\n        sapply(f, title1)\n    }\n    html = paste0(substr(rmd, 1L, nchar(rmd)-3L), "html")\n    lapply(html, function(f) cat(sprintf("[%s](%s)\\n", title(rmd), f))) |> invisible()\n}\n```' > .pkgup/doc/vignettes.Rmd
           cp -r vignettes/* .pkgup/doc/vignettes/
           R CMD INSTALL $(ls -1t pkgup_*.tar.gz | head -n 1)
           Rscript -e 'litedown::fuse_site(".pkgup/doc")'