Блог

Главная - Вопросы по программированию - Я сталкиваюсь с некоторыми проблемами в этом R shiny wordcloud

Я сталкиваюсь с некоторыми проблемами в этом R shiny wordcloud

#r #shiny

#r #блестящий

Вопрос:

Я работаю над блестящим приложением для wordcloud

СЕРВЕРНЫЙ код::

 library(shiny)
library(tm)
library(wordcloud)

shinyServer(function(input, output, session) {
  
  wc_data <- reactive({
    
    input$update
    
    isolate({
      
      withProgress({
        setProgress(message = "Processing Corpus...")
        wc_file <- input$wc
        if(!is.null(wc_file)){
          wc_text <- readLines(wc_file$datapath)
        }
        else
        {
          wc_text <- "A word cloud is an image made of words that resembles a cloud shape"
        }
        
        docs <- Corpus(VectorSource(wc_text))
        inspect(docs)
      })
    })
  })
    wordcloud_rep <- repeatable(wordcloud)
    output$wcplot <- renderPlot({
    withProgress({
                  setProgress(message = "Creating Wordcloud...")
                  docs1 <- wc_data()
                  wordcloud(docs1, min.freq = 100, colors = brewer.pal(8, "Set1"), random.order = F, rot.per = .30)
    
    })
  })
})

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

 library(shiny)

ShinyUI<-fluidPage(
                  titlePanel("Word cloud"),
                   sidebarLayout(
                     sidebarPanel(
                      fileInput("wc", "Upload a TextFile for creating a word cloud", multiple = F, accept = "text/plain"),
                      actionButton("Update", "Create a word cloud")
                    ),
                    mainPanel(
                      plotOutput("wcplot")
                      )
                  )
            
)

Мое облако слов не отображается
, я пробовал, я думаю, что кнопка create wordcloud не может перезапустить код и не принимает загруженный файл

Комментарии:

1. Я полагаю, что вы хотите input$Update (заглавную букву «U») в своем reactive выражении. Это будет соответствовать ui . Кроме того, вы могли бы рассмотреть возможность замены на eventReactive(input$Update, {}) , если это будет вызвано actionButton .

2. Большое вам спасибо. Просто заглавная буква U, и я создал новый проект с нуля другим методом, который я должен был представить. В любом случае спасибо за помощь.