R: Polarity Text Highlighting

highlight {sentimentr} | R Documentation

## Polarity Text Highlighting

### Description

Highlight sentences within elements (row IDs) by sentiment polarity (positive = green; negative = pink) as an html file.

### Usage

    highlight(x, file = file.path(tempdir(), "polarity.html"), open = TRUE,
      digits = 3, ...)

### Arguments

`x` | A `sentiment_by` object.
`file` | A name of the html file output.
`open` | logical. If `TRUE` the text highlighting document will attempt to be opened.
`digits` | The number of digits to print for each row level average sentiment score.
`...` | Ignored.

### Value

Generates an html document with text highlighting.

### Examples

    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)

    cannon_reviews %>%
        filter(number %in% sample(unique(number), 3)) %>%
        mutate(review = get_sentences(text)) %$%
        sentiment_by(review, number) %>%
        highlight()

    ## End(Not run)

[Package sentimentr version 2.4.2 Index]