CICD checks fixed

Author: StefanThoma

.github/workflows/publish.yml

@@ -42,6 +42,7 @@ jobs:
             pharmaverseadam
             link
             sessioninfo
+            roxygen2
 
 
       - name: Install tinytex

R/appendix.R

@@ -1,10 +1,9 @@
-
 # markdown helpers --------------------------------------------------------
 
-markdown_appendix <- function (name, content) {
+markdown_appendix <- function(name, content) {
   paste(paste("##", name, "{.appendix}"), " ", content, sep = "\n")
 }
-markdown_link <- function (text, path) {
+markdown_link <- function(text, path) {
   paste0("[", text, "](", path, ")")
 }
 
@@ -58,7 +57,7 @@ insert_lockfile <- function(repo_spec, name,
 
 # top level function ------------------------------------------------------
 
-insert_appendix <- function (repo_spec, name, collection = "posts") {
+insert_appendix <- function(repo_spec, name, collection = "posts") {
   appendices <- paste(
     markdown_appendix(
       name = "Last updated",
@@ -70,7 +69,8 @@ insert_appendix <- function (repo_spec, name, collection = "posts") {
       content = paste(
         insert_source(repo_spec, name, collection),
         insert_lockfile(repo_spec, name, collection),
-        sep = ", ")
+        sep = ", "
+      )
     ),
     sep = "\n"
   )

index.qmd

@@ -34,7 +34,7 @@ post_redirects <- paste0("/", slugs, " ", "/posts/", posts)
 
 # function to extract post categories from index.qmd files
 get_post_categories <- function(post) {
-  file <- here::here("posts", post)  |> list.files(pattern = ".qmd", full.names = TRUE)
+  file <- here::here("posts", post) |> list.files(pattern = ".qmd", full.names = TRUE)
   if (!fs::file_exists(file)) {
     return(character(0))
   }

inst/WORDLIST.txt

@@ -716,3 +716,7 @@ img
 src
 svg
 wikimedia
+de
+RightTool
+Rlogo
+sessioninfo

posts/2023-10-30_floating_point/floating_point.qmd

@@ -353,7 +353,7 @@ I.e. `.Machine$double.eps / 1.8` is still detectable, while `.Machine$double.eps
 source("appendix.R")
 insert_appendix(
   repo_spec = "pharmaverse/blog",
-  name = long_slug, 
+  name = long_slug,
   # file_name should be the name of your file
   file_name = list.files() %>% stringr::str_subset(".qmd") %>% first()
 )