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") {