avoid NAs in citations for report(sessionInfo()) (#266)

Author: pkoaz

R/format_citation.R

@@ -65,8 +65,9 @@ cite_citation <- function(citation) {
 #' @rdname format_citation
 #' @export
 clean_citation <- function(citation) {
-  if ("citation" %in% class(citation)) {
-    citation <- format(citation)[2]
+  if (isTRUE(inherits(citation, "citation"))) {
+    citation <- format(citation,
+                       style = "text")
   }
   citation <- unlist(strsplit(citation, "\n"))
   citation <- paste(citation, collapse = "SPLIT")