Merge pull request #67 from fhdsl/run-all

Clean up list of pdfs
fhdsl · Jul 3, 2024 · 2f4804b · 2f4804b
2 parents 0086314 + 2513bf9
commit 2f4804b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/scripts/render_html_list.R b/scripts/render_html_list.R
@@ -7,11 +7,11 @@
 files <- readr::read_csv("lecture_files.csv", show_col_types = FALSE)
 
 if(nrow(files) > 0) {
-  files$files <- sapply(files$files, gsub, pattern = ".Rmd", replacement = "")
-  files$files <- sapply(files$files, gsub, pattern = "modules/.*/", replacement = "")
+  files$files <- stringr::str_replace_all(files$files, pattern = ".Rmd", replacement = "")
+  files$files <- stringr::str_replace_all(files$files, pattern = "modules/.*/", replacement = "")
 
   # Don't need to render HWs
-  files <- files[!grepl("homework", files)]
+  files <- files[!grepl("homework", files$files),]
 } else {
   # Just render the Intro files if no others to render.
   files <- data.frame(