For Shiny Server中的循环：如何在每次按ActionButton时不覆盖值？

Question

我正在尝试创建一个应用程序，其中UI的一部分显示由用户输入的单词/字符串生成的单词云。为此，我将输入传递给for循环，然后按一下操作按钮即可将每个输入存储在一个空向量中。但是，我遇到了两个问题：一个问题是没有显示词云，没有错误指示，另一个问题是for循环每次按下按钮时都会覆盖向量，因此它总是只包含一个单词，而不是逐渐添加更多单词。我认为缺少显示是因为只有一个单词，而wordcloud似乎至少需要两个单词才能打印任何内容：那么我如何才能使for循环与Shiny一起使用？

library(shiny)
library(stringr)
library(stringi)
library(wordcloud2)



ui <- fluidPage(

titlePanel("Strings Sim"),

 sidebarLayout(
 sidebarPanel(
  textInput("string.input", "Create a string:", placeholder = "string <-"),
  actionButton("go1", "GO!")
),

  mainPanel(
   textOutput("dummy"),
   wordcloud2Output("the.cloud")
  )


)
)

server <- function(input, output, session) {


 observeEvent(input$go1, {

   high.strung <- as.vector(input$string.input)
   empty.words <- NULL

for (i in high.strung) {
  empty.words <- c(empty.words, i)
}

word.vector <-matrix(empty.words, nrow = length(empty.words),ncol=1)

num.vector <- matrix(sample(1000), nrow=length(empty.words),ncol=1)

prelim <- cbind(word.vector, num.vector)

prelim.data <- as.data.frame(prelim)

prelim.data$V2 <- as.numeric(as.character(prelim.data$V2))

 output$the.cloud <- renderWordcloud2(
  wordcloud2(prelim.data)
   )

print(empty.words)
  })
  }

     shinyApp(ui=ui,server=server)

当我在没有Shiny代码的情况下运行该操作时，该操作按预期工作；我基本上只是使用一个字符串代替输入，通过for循环运行几次，以生成供词云使用的数据帧，并得到类似所附图片的内容，这就是我要遵循的：{{3} }

没有Shiny的功能代码：

 empty.words <- NULL

 #Rerun below here to populate vector with more words and regenerate wordcloud

 high.strung <- as.vector("gumbo")

 for (i in high.strung) {
   empty.words <- c(empty.words, i)
   return(empty.words)
 }

 word.vector <-matrix(empty.words, nrow = length(empty.words),ncol=1)

 num.vector <- matrix(sample(1000), nrow=length(empty.words),ncol=1)

 prelim <- cbind(word.vector, num.vector)

 prelim.data <- as.data.frame(prelim)

 prelim.data$V2 <- as.numeric(as.character(prelim.data$V2))

 str(prelim.data)

 wordcloud2(prelim.data)

非常感谢您的帮助！

编辑：使用非发光代码，可获得所需输出的更多图片。 （我编辑了数据框输出以覆盖wordcloud只是为了在一张图片中显示云和框，即不需要它们以这种方式显示）。每按一次该按钮，应将输入的单词添加到构建云的数据框中，逐渐使它变大。确定大小的随机数矢量不必每次按都保持不变，但是每个输入的单词应保存在向量中。

Answer 1

您的应用缺少反应性。您可以阅读有关here的概念。您可以输入字符串，并且一旦数据框中至少有两个单词，就会呈现wordcloud。如果您不希望拆分多单词字符串，只需取出str_split()函数。

library(shiny)
library(stringr)
library(stringi)
library(wordcloud2)



ui <- fluidPage(

  titlePanel("Strings Sim"),

  sidebarLayout(
    sidebarPanel(
      textInput("string.input", "Create a string:", placeholder = "string <-"),
      actionButton("go1", "GO!")
    ),

    mainPanel(
      textOutput("dummy"),
      wordcloud2Output("the.cloud")
    )


  )
)

server <- function(input, output, session) {

  rv <- reactiveValues(high.strung = NULL)
  observeEvent(input$go1, {
    rv$high.strung <- c(rv$high.strung,str_split(c(input$string.input), pattern = " ") %>% unlist)
  })

  prelim.data <- reactive({
    prelim <- data.frame(
      word.vector = rv$high.strung, 
      num.vector = sample(1000, length(rv$high.strung), replace = TRUE)
    )
  })

  output$the.cloud <- renderWordcloud2(
    if (length(rv$high.strung) > 0)
      wordcloud2(prelim.data())
  )

}

shinyApp(ui=ui,server=server)