From cca82fcea04578fdf2fe79d7579fc11502afc76f Mon Sep 17 00:00:00 2001
From: DominikVogel <post@vogel-online.info>
Date: Tue, 15 Dec 2020 13:57:26 +0100
Subject: [PATCH] fix encoding error in PrepText on Windows systems

---
 R/PrepText.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/PrepText.R b/R/PrepText.R
index e66325e..7ce5e39 100644
--- a/R/PrepText.R
+++ b/R/PrepText.R
@@ -21,7 +21,7 @@ PrepText <- function(textdata, groupvar, textvar, node_type = c("groups","words"
                     ...) {
   
   # remove non-UTF8 characters
-  textdata[[textvar]] <- iconv(textdata[[textvar]],  to="UTF-8", sub='')
+  textdata[[textvar]] <- iconv(textdata[[textvar]], from="UTF-8", to="UTF-8", sub='')
   
   # remove emojis, symbols, and meta characters from tweets
   if (tokenizer=="tweets") {