property - twitter card

Ejemplo brillante y twitter

Question

Estoy tratando de ejecutar un ejemplo para procesar tweets en R con Shiny. Estoy usando el ejemplo en esta página, pero no obtengo ningún resultado.

El código que estoy usando es el siguiente (que he corregido de la página porque tenía algunos errores con paréntesis, comas invertidos, etc.):

ui.r

library(shiny)
shinyUI(pageWithSidebar(
# Application title
headerPanel(''Tweets hunter''),
sidebarPanel( textInput(''term'', ''Enter a term'', ''''),
numericInput(''cant'', ''Select a number of tweets'',1,0,200),
radioButtons(''lang'',''Select the language'',c(
''English''=''en'',
''Castellano''=''es'',
''Deutsch''=''de'')),
submitButton(text=''Run'')),
mainPanel(
h4(''Last 5 Tweets''),
tableOutput(''table''),
plotOutput(''wordcl''))
))

server.r

library(shiny)
library(twitteR)
library(wordcloud)
library(tm)
shinyServer(function (input, output) {
rawData <- reactive(function(){
tweets <- searchTwitter(input$term, n=input$cant,lang=input$lang)
twListToDF(tweets)
})
output$table <- reactiveTable(function () {
head(rawData()[1],n=5)
})
output$wordcl<- reactivePlot(function(){
tw.text<-enc2native(rawData()$text,
tw.text <- tolower(tw.text),
tw.text <- removeWords(tw.text,c(stopwords(input$lang),''rt'')),
tw.text <- removePunctuation(tw.text,TRUE),
tw.text <-unlist(strsplit(tw.text,'' '')),
word<- sort(table(tw.text),TRUE),
wordc<-head(word,n=15),
wordcloud(names(wordc),wordc,random.color=TRUE,colors=rainbow(10),scale=c(15,2))
)
})
})

He editado el código del archivo server.r ya que algunos de los comandos están obsoletos de la siguiente manera:

library(shiny)
library(twitteR)
library(wordcloud)
library(tm)
shinyServer(function (input, output) {
rawData <- reactive(function(){
tweets <- searchTwitter(input$term, n=input$cant,lang=input$lang)
twListToDF(tweets)
})
#output$table <- reactiveTable(function () {
# head(rawData()[1],n=5)
#})
output$filetable <- renderTable(
{ if (is.null(input$files)) { # User has not uploaded a file yet
return(NULL) }
head(rawData()[1],n=5) })
#http://shiny.rstudio.com/reference/shiny/latest/renderPlot.html
# output$wordcl<- reactivePlot(function(){
# tw.text<-enc2native(rawData()$text,
# tw.text <- tolower(tw.text),
# tw.text <- removeWords(tw.text,c(stopwords(input$lang),''rt'')),
# tw.text <- removePunctuation(tw.text,TRUE),
# tw.text <-unlist(strsplit(tw.text,'' '')),
# word<- sort(table(tw.text),TRUE),
# wordc<-head(word,n=15),
# wordcloud(names(wordc),wordc,random.color=TRUE,colors=rainbow(10),scale=c(15,2))
# )
#})
output$wordcl<- renderPlot(
function(){
tw.text<-enc2native(rawData()$text)
tw.text <- tolower(tw.text)
tw.text <- removeWords(tw.text,c(stopwords(input$lang),''rt''))
tw.text <- removePunctuation(tw.text,TRUE)
tw.text <-unlist(strsplit(tw.text,'' ''))
word<- sort(table(tw.text),TRUE)
wordc<-head(word,n=15)
wordcloud(names(wordc),wordc,random.color=TRUE,colors=rainbow(10),scale=c(15,2))
}
,width = "auto", height = "auto", res = 72,
env = parent.frame(), quoted = FALSE, execOnResize = FALSE,
outputArgs = list())
})

Pero no estoy obteniendo ningún resultado

¿Alguna idea de lo que está causando me estoy perdiendo?

Gracias

Answer 1

Me las arreglé para que funcione. Aquí está el código. Espero que pueda ayudar a alguien

library(shiny)
library(twitteR)
library(wordcloud)
library(tm)
shinyServer(function (input, output) {
rawData <- reactive(
{ tweets <- searchTwitter(input$term, n=input$cant,lang=input$lang)
return(twListToDF(tweets))
})
output$tablel <- renderTable( {
head(rawData()[1],n=5)
})
output$wordcl<- renderPlot(
{
tw.text <- rawData()$text
tw.text <- enc2native(rawData()$text)
tw.text <- tolower(tw.text)
tw.text <- removeWords(tw.text,c(stopwords(''en''),''rt''))
tw.text <- removePunctuation(tw.text,TRUE)
tw.text <- unlist(strsplit(tw.text,'' ''))
word <- sort(table(tw.text),TRUE)
wordc <- head(word,n=15)
wordcloud(names(wordc),wordc,random.color=TRUE,colors=rainbow(10),scale=c(5,2),min.freq=1)
}
)
})