问Shiny服务器中的For循环:如何不在每次按ActionButton时覆盖值？
EN

Stack Overflow用户

提问于 2019-06-13 20:57:09

回答 1查看 56关注 0票数 0

我正在尝试创建一个应用程序，其中UI的一部分显示由用户输入的单词/字符串生成的词云。为此，我将输入传递给一个for循环，该循环假定在按下action按钮时将每个输入存储在一个空向量中。然而，我遇到了两个问题:一个是没有显示单词云，没有错误指示，另一个是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)

当我在没有闪亮的代码的情况下运行它时，操作就能正常工作；我基本上只使用一个字符串来代替输入，运行几次for循环来生成word cloud使用的dataframe，并获得类似于附加的图片的东西，这就是我想要的：

没有闪光的功能代码：

 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)

任何帮助都是非常感谢的！

编辑:使用无光泽的代码获得更多所需输出的图片。(我编辑了数据帧输出以覆盖单词cloud，只是为了在一张图片中显示云和帧，即不需要它们以这种方式显示)。每次按下按钮，输入的单词都应该添加到构建云的数据帧中，逐渐使其成为决定大小的larger.The随机数向量，而不必在每次按下时保持不变，但每个输入的单词都应该保存在向量中。

for-loop

shiny

wordcloud2

回答 1

Stack Overflow用户

回答已采纳

发布于 2019-06-13 21:50:19

你的应用缺少反应性。您可以阅读有关概念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)