data/sentiment_afinn/02_make_rda.R

In patperry/r-corpus: Text Corpus Analysis

#!/usr/local/bin/Rscript --vanilla

raw <- read.delim(file.path("AFINN", "AFINN-111.txt"),
                  encoding = "UTF-8", header = FALSE, stringsAsFactors = FALSE)
names(raw) <- c("term", "score")
raw$term <- trimws(raw$term)

# exclude multi-type terms
multi <- grepl("[[:space:]]", raw$term)
raw <- raw[!multi,]

# discared row names
rownames(raw) <- NULL

sentiment_afinn <- raw
class(sentiment_afinn) <- c("corpus_frame", "data.frame")

save(sentiment_afinn, file = "../sentiment_afinn.rda")
tools::resaveRdaFiles("../sentiment_afinn.rda")