From 32482a705a82d4411f3b914755a09a0b69e5812d Mon Sep 17 00:00:00 2001
From: kbenoit <kbenoit@lse.ac.uk>
Date: Mon, 29 Mar 2021 21:23:31 +0100
Subject: [PATCH] Fixes for forthcoming quanteda v3

- previously deprecated metacorpus() is now removed
- texts() is deprecated, use as.character() instead
---
 R/as.textmeta.corpus.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/as.textmeta.corpus.R b/R/as.textmeta.corpus.R
index 2deef6d..dd663ff 100644
--- a/R/as.textmeta.corpus.R
+++ b/R/as.textmeta.corpus.R
@@ -57,10 +57,10 @@ as.textmeta.corpus <- function(corpus, cols, dateFormat = "%Y-%m-%d", idCol = "i
     length(duplicateAction) == 1)
 
   # restructure corpus using 1.4.x format
-  corpus <- list(documents = data.frame(texts = quanteda::texts(corpus), 
+  corpus <- list(documents = data.frame(texts = as.character(corpus), 
                                         quanteda::docvars(corpus),
                                         stringsAsFactors = FALSE),
-                 metadata = quanteda::metacorpus(corpus))
+                 metadata = quanteda::meta(corpus))
   
   if (missing(cols)) cols <- colnames(corpus$documents)
   cols <- setdiff(cols, c(idCol, dateCol, titleCol, textCol))