Perspective_analisis.Rmd

---
title: "Perspective_analisis"
output: html_notebook
---

```{r libraries}
library(peRspective)
library(tidyverse)
```
# Análisis de Toxicidad usando Perspective
## Cargar datos

```{r df}
tidy_threads <- read.csv('data/tidy_reform_jud_threads.csv')

tidy_tweets <- read.csv('data/tidy_reform_jud_twitter.csv')
```

## Preparar datos

```{r df2}
thr_txt <- tidy_threads %>% 
  select(item_id, datacaptiontext)

twi_txt <- tidy_tweets %>% 
  select(id, body)

```

## Evaluar toxicidad

```{r perspective}

toxic_thr <- thr_txt %>% 
  prsp_stream(text = datacaptiontext,
              text_id = item_id,
              languages = "es",
              score_model = c("TOXICITY", "INSULT", "PROFANITY_EXPERIMENTAL"), 
              verbose = T,
              safe_output = T)


toxic_twt <- twi_txt %>% 
  prsp_stream(text = body,
              text_id = id,
              languages = "es",
              score_model = c("TOXICITY", "INSULT", "PROFANITY_EXPERIMENTAL"), 
              verbose = T,
              safe_output = T)
```