# NOT RUN {
library(data.table)
dat <- presidential_debates_2012
setDT(dat)
dat[, gr:={gr= paste(person, time); cumsum(c(TRUE, gr[-1]!= gr[-.N]))}]
dat <- dat[, list(person=person[1L], time=time[1L], dialogue=paste(dialogue,
collapse = ' ')), by = gr][,gr:= NULL][,
dialogue_split := get_sentences(dialogue)][]
(sent_dat <- with(dat, sentiment_by(dialogue_split, list(person, time))))
# }
# NOT RUN {
highlight(sent_dat)
## tidy approach
library(dplyr)
library(magrittr)
hu_liu_cannon_reviews %>%
filter(review_id %in% sample(unique(review_id), 3)) %>%
mutate(review = get_sentences(text)) %$%
sentiment_by(review, review_id) %>%
highlight()
# }
Run the code above in your browser using DataLab