如何使用响应函数在R Shiny中创建DF

Question

我试图通过DataCamp课程后创建一个wordcloud闪亮的应用程序。在这个过程中，他们使用一个自定义的create_wordcloud()函数来制作这个应用程序。如果有人有它的代码，这会让我的生活更轻松。

无论如何，我正试图去我自己的方式，因为我没有自定义功能，将使用wordcloud2()功能。

我有麻烦使用反应功能，使闪亮的应用程序。从本质上讲，我试图使它，以便用户可以选择单词的数量，并在使用UI改变文字云的背景。为此，我需要将用户提供的文本转换为数据帧，按字数排序df，然后将df子集为用户在应用程序UI中选择的任何数字。

下面是我的代码:

library(shiny)
library(colourpicker)
library(tidyverse)

ui <- fluidPage(
h1("Word Cloud"),
sidebarLayout(
sidebarPanel(
# Add a textarea input
textAreaInput("text", "Enter text", rows = 7),
numericInput("num", "Maximum number of words", 25),
colourInput("col", "Background color", value = "white")
),
mainPanel(
wordcloud2Output("cloud")
)
)
)
server <- function(input, output) {
df_data <- reactive({
input$text %>% 
term_stats(., drop_punct = TRUE, drop = stopwords_en) %>% 
order_by(desc(count))
})

output$cloud <- renderWordcloud2({
# Use the textarea's value as the word cloud data source
wordcloud2(data = df_data()[1:input$num, ],
backgroundColor = input$col)
})
}
shinyApp(ui = ui, server = server)

我得到的错误是:

警告:输入必须是一个向量，而不是一个函数。

我真的很期待听到来自社区的答案，并提高我的响应式编程技能!

谢谢!

Answer 1

方案一:获取create_wordcloud函数实际代码如下:

create_wordcloud <- function(data, num_words = 100, background = "white") {

# If text is provided, convert it to a dataframe of word frequencies
if (is.character(data)) {
corpus <- Corpus(VectorSource(data))
corpus <- tm_map(corpus, tolower)
corpus <- tm_map(corpus, removePunctuation)
corpus <- tm_map(corpus, removeNumbers)
corpus <- tm_map(corpus, removeWords, stopwords("english"))
tdm <- as.matrix(TermDocumentMatrix(corpus))
data <- sort(rowSums(tdm), decreasing = TRUE)
data <- data.frame(word = names(data), freq = as.numeric(data))
}

# Make sure a proper num_words is provided
if (!is.numeric(num_words) || num_words < 3) {
num_words <- 3
}  

# Grab the top n most common words
data <- head(data, n = num_words)
if (nrow(data) == 0) {
return(NULL)
}

wordcloud2(data, backgroundColor = background)
}

方案二:由@Xiang在评论区提供:

ui <- fluidPage(
h1("Word Cloud"),
sidebarLayout(
sidebarPanel(
# Add a textarea input
textAreaInput("text", "Enter text", rows = 7),
numericInput("num", "Maximum number of words", 25),
colourInput("col", "Background color", value = "white")
),
mainPanel(
wordcloud2Output("cloud")
)
)
)
server <- function(input, output) {
df_data <- reactive({
input$text %>% 
term_stats(., drop_punct = TRUE, drop = stopwords_en) %>% 
arrange(desc(count))
})

output$cloud <- renderWordcloud2({
# Use the textarea's value as the word cloud data source
wordcloud2(data = df_data()[1:input$num, ],
backgroundColor = input$col)
})
}
shinyApp(ui = ui, server = server)