浏览代码

This prevents "merged" words

master
JayVii 8 个月前
父节点
当前提交
f799ac4516
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1
    1
      scripts/collecto.R

+ 1
- 1
scripts/collecto.R 查看文件

@@ -68,7 +68,7 @@ tweets <- within(data = tweets, expr = {

# extract "clean" text (without URLs or lineabreaks)
ctxt <- gsub(pattern = "http.?://.+($|\\s)", x = text, replace = "") %>%
gsub(pattern = "\n", x = text, replace = "")
gsub(pattern = "\n", x = text, replace = " ")

# Client data
clnt <- as.factor(source)

正在加载...
取消
保存