From fefffd48a9c4d17c5bc7812bce6d269c4daa8e36 Mon Sep 17 00:00:00 2001
From: Mitch <mitch.ohara-wild@monash.edu>
Date: Wed, 27 Jan 2021 02:15:32 +1100
Subject: [PATCH] Fix missing value removal check in bibliography_entries()

---
 R/bibliography.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/bibliography.R b/R/bibliography.R
index db0520a3..09a03485 100644
--- a/R/bibliography.R
+++ b/R/bibliography.R
@@ -78,7 +78,7 @@ knit_print.vitae_bibliography <- function(x, options = knitr::opts_current$get()
       x <- as.list(x)
       el_is_list <- vapply(x, is.list, logical(1L))
       x[el_is_list] <- lapply(x[el_is_list], `[[`, i=1)
-      Filter(function(x) !is.na(x) && length(x) > 0, x)
+      Filter(function(x) !is.na(x[1]) && length(x) > 0, x)
     })
   if((options$cache %||% 0) == 0) {
     file <- tempfile(fileext = ".yaml")