fix inconsistency in duplist

Docma-TU · Jun 28, 2019 · 276bba6 · 276bba6
1 parent 7239837
commit 276bba6
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/duplist.R b/R/duplist.R
@@ -65,6 +65,9 @@ duplist <- function(object, paragraph = FALSE){
     if (is.matrix(dupType)){
       dupType <- as.list(as.data.frame(dupType, stringsAsFactors = FALSE))
     }
+    if (!is.list(dupType)){
+      dupType <- as.list(dupType)
+    }
     names(dupType) <- dups_names
     return(dupType)
   }