Invocación de Cognitive Services desde R

Los servicios cognitivos de Microsoft son muy poderosos, ofrecen varias opciones de análisis, una de ellas es el análisis de texto y clasificación de sentimiento.

Los servicios pueden ser invocados desde distintas plataformas y lenguajes de programación tales como C# o Java, en este artículo vamos a mostrar cómo invocar los servicios desde lenguaje R.

# Se cargan las bibliotecas para poder invocar los servicios cognitivos por medio de http y para poder formatear los datos en formato JSON y así poder hacer la invocación al servicio correspondiente 

library(httr)
library(jsonlite) 

cognitive_request <- span=""> data.frame(
language = c("es", "es"),
id = c("1", "2"),
text = c("Que enojado que estoy", "Todo es muy bueno"))

# Convertir el data frame de R (Dataframe) al formato del request(JSON)

cognitive_request_json <- span=""> toJSON(list(documents = cognitive_request), auto_unbox = TRUE)

# Invocacion del API

result <- span=""> POST("https://westus.api.cognitive.microsoft.com/text/analytics/v2.0/sentiment",
body = cognitive_request_json,
add_headers(.headers = c("Content-Type" = "application/json", "Ocp-Apim-Subscription-Key" = "aqui va el key de su suscripcion")))
Output <- span=""> content(result)

# Salida de evaluacion en espanol
OutputCognitiva

## $documents
## $documents[[1]]
## $documents[[1]]$score
## [1] 0.03276695
## 
## $documents[[1]]$id
## [1] "1"
## 
## 
## $documents[[2]]
## $documents[[2]]$score
## [1] 0.6808149
## 
## $documents[[2]]$id
## [1] "2"
## 
## 
## 
## $errors
## list()