#196 updates

pharmaverse · Aug 7, 2024 · 4c464f8 · 4c464f8
1 parent fb9af2b
commit 4c464f8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/check_post_tags.R b/R/check_post_tags.R
@@ -5,10 +5,10 @@ posts <- list.files("posts", recursive = TRUE, pattern = "*.qmd")
 source("R/allowed_tags.R")
 
 # Function to extract tags from a post and check them against the allowed list ----
-check_post_tags <- function(post) {
+check_post_tags <- function(post, allowed_tags = allowed_tags) {
   post_tags <- rmarkdown::yaml_front_matter(file.path("posts", post))$categories
 
-  cross_check <- post_tags %in% allowable_tags
+  cross_check <- post_tags %in% allowed_tags
 
   problematic_tags <- post_tags[!cross_check]