Worcloud путем ввода файлов в Shiny R - PullRequest
Новая
       6

Worcloud путем ввода файлов в Shiny R

0 голосов
/ 14 января 2020

Я пытаюсь создать wordcloud, но он показывает "Чтение из объекта sparkoutput не разрешено.

Это код для сервера.

server.r

function(input, output, session) {
  mydata <- reactive({
    inFile <- input$finput
    if(is.null(inFile)){return()}
    read.csv(inFile$datapath, header = TRUE, sep = ',',quote = "")
  })



  word = reactive({
    myCorpus = Corpus(VectorSource(output$fData))
    myCorpus = tm_map(myCorpus, content_transformer(tolower))
    myCorpus = tm_map(myCorpus, removePunctuation)
    myCorpus = tm_map(myCorpus, removeNumbers)
    myDTM = TermDocumentMatrix(myCorpus)
    v = sort(slam::row_sums(myDTM),decreasing = TRUE)
    data.frame(word=names(v),freq=v)
  })  

  output$plot <- renderPlot({
    wordcloud(words = word()$word,
              freq = word()$freq, 
              random.order=FALSE, rot.per=0.3,   
              scale=c(4,.5),max.words=15, 
              colors=brewer.pal(8,"Dark2"))
  })
}

Это код для пользовательского интерфейса 

UI.r

shinyUI(fluidPage(
  theme = shinytheme("cerulean"),

  navbarPage("Sentimen Analisis Tokopedia",
             tabPanel("Sentiment Analysis",

                      fluidRow(
                        column(8,
                               fileInput("finput",label = h3("Upload File CSV"))),

                        column(4,
                               dateRangeInput("dates", label = h3("Date range"))
                        )),

                      tabsetPanel(type = "tab", 
                                  tabPanel("Data", 
                                           br(),
                                           DT::dataTableOutput("fData")),

                                  tabPanel("WordCloud", 
                                           br(),
                                           plotOutput("plot")
                                  )
             )
)
)
)             
)

Я думаю, что что-то не так с myCorpus = Corpus(VectorSource(output$fData)) Я пытался заменить его, но это все еще ошибка. Пожалуйста, помогите мне

...