handles empty string for package name in write_bib()

closes #2240
yihui · Mar 13, 2023 · 7e0d4f6 · 7e0d4f6
1 parent 25b681d
commit 7e0d4f6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/citation.R b/R/citation.R
@@ -63,6 +63,7 @@ write_bib = function(
 ) {
   system.file = function(...) base::system.file(..., lib.loc = lib.loc)
   citation = function(...) utils::citation(..., lib.loc = lib.loc)
+  x = x[nzchar(x)] # remove possible empty string
   idx = mapply(system.file, package = x) == ''
   if (any(idx)) {
     warning('package(s) ', paste(x[idx], collapse = ', '), ' not found')