r 제목 반짝이는 트위터 예



xlab size in r (1)

Shiny와 함께 R의 트윗을 처리하는 예제를 실행하려고합니다. 페이지의 예제를 사용하고 있지만 출력이 없습니다.

내가 사용하고있는 코드는 다음과 같습니다 (괄호, 뒤집힌 혼수 상태 등 일부 오류가있어 페이지에서 수정했습니다).

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))
    )
  })
})

일부 명령이 다음과 같이 사용되지 않으므로 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$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())

})

하지만 나는 결과를 얻지 못하고있다.

내가 누락 된 원인은 무엇입니까?

감사


나는 그것을 가능하게 만들었다. 여기에 코드가 있습니다. 누군가를 도울 수 있기를 바랍니다.

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)
      }
  )
})




word-cloud