http remove

Twitter-Sentiment-Analysis · Sep 12, 2016 · 131672f · 131672f
1 parent 84e9052
commit 131672f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/emoticon.R b/emoticon.R
@@ -1,3 +1,6 @@
 df <- do.call("rbind", lapply(junglebook.tweets, as.data.frame))
+#remove emoticons
 df$text <- sapply(df$text,function(row) iconv(row, "latin1", "ASCII", sub=""))
+#remove URLs
+df$text = gsub("(f|ht)tp(s?)://(.*)[.][a-z]+", "", df$text)
 sample <- df$text