Merge pull request #18 from kbenoit/fix-quantedav2

Add fixes for upcoming quanteda v2 compatibility
Docma-TU · Dec 20, 2019 · dae6ed5 · dae6ed5
2 parents 75b8602 + 35b080f
commit dae6ed5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/as.corpus.textmeta.R b/R/as.corpus.textmeta.R
@@ -47,7 +47,10 @@ as.corpus.textmeta <- function(object, docnames = "id",
   colnames(meta) <- metadoc
 
   corp <- quanteda::corpus(x = texts, docnames = id, docvars = vars, ...)
-  quanteda::metadoc(corp) <- meta
+  suppressWarnings(
+    quanteda::docvars(corp) <- 
+      cbind(quanteda::docvars(corp), quanteda::metadoc(corp))
+  )
 
   return(corp)
 }
diff --git a/R/as.textmeta.corpus.R b/R/as.textmeta.corpus.R
@@ -75,7 +75,7 @@ as.textmeta.corpus <- function(corpus, cols, dateFormat = "%Y-%m-%d", idCol = "i
   }
   tmpid <- meta$id
 
-  if(addMetadata){
+  if (addMetadata && length(corpus$metadata)) {
     tmp <- unlist(corpus$metadata)
     meta[, names(corpus$metadata)] <- matrix(rep(tmp, each = length(tmpid)), nrow = length(tmpid))
   }