updated how featured articles are handled

jhelvy · Dec 10, 2023 · e5e1bdf · e5e1bdf
1 parent c9f5989
commit e5e1bdf
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/R/functions.R b/R/functions.R
@@ -85,8 +85,13 @@ make_media_list <- function() {
     return(paste(temp$post, collapse = "\n"))
 }
 
-make_pub_list <- function(pubs, category) {
+make_pub_list <- function(pubs, category, featured = FALSE) {
   x <- pubs[which(pubs$category == category),]
+  if (featured) {
+    x <- x[which(x$featured),]
+  } else {
+    x <- x[which(!x$featured),]
+  }
   pub_list <- lapply(split(x, 1:nrow(x)), make_pub)
   return(paste(unlist(pub_list), collapse = ""))
 }

diff --git a/research.Rmd b/research.Rmd
@@ -44,7 +44,7 @@ pubs <- get_pubs()
 
 <aside>*indicates student advised by Helveston</aside>
 
-`r make_pub_list(pubs, "featured")`
+`r make_pub_list(pubs, "peer_reviewed", featured = TRUE)`
 
 ## Other Peer-Reviewed Publications