瀏覽代碼

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)

Loading…
取消
儲存