Fix missing value removal check in bibliography_entries()

Evgenia-Yu · Jan 26, 2021 · fefffd4 · fefffd4
1 parent 21ea911
commit fefffd4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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")