#!/usr/bin/env Rscript

library(tidytext) # for data, unnest_tokens
data(stop_words)

library(janeaustenr) # for austen_books

library(dplyr) # for group_by, anti_join, inner_join, count, mutate

library(tidyr) # for pivot_wider

tidy_books <- austen_books() %>%
  group_by(book) %>%
  unnest_tokens(word, text) %>%
  anti_join(stop_words)


get_sentiments("afinn")

sentiment <- tidy_books %>%
  inner_join(get_sentiments("afinn")) %>%
  summarise(sentiment = sum(value)) %>%
  mutate(method = "AFINN")

sentiment