如何在 R Shiny 应用程序中存储反应变量的先前状态？

Question

让我们想象一个 Shiny 应用程序，当用户点击一个 ActionButton 时，它会生成一个包含 10 个随机单词的向量。 这些单词显示在一个表格（DT 包）中，允许用户 select 他感兴趣的单词/行以构建选择。 此选择被传输到另一个表（使用来自 DT 数据表的“_rows_selected”输入）并显示。 这就是下面的最小示例所做的：

library(shiny)
library(DT)

ui <- fluidPage(
  actionButton("generate", "New random words"),
  h5("Original data"),
  dataTableOutput("results"),
  br(),
  h5("Selected data"),
  dataTableOutput("selection")
)

server <- function(input, output, session) {
  
  generated_data <- eventReactive(input$generate, {
    random_words <- sapply(1:10, function(x) sample(letters, x) %>% paste(collapse=""))
    data.frame(ID=1:10, Word=random_words)
  })
  
  output$results <- renderDataTable(
    datatable(generated_data(), rownames = FALSE)
  )
  
  output$selection <- renderDataTable(
    generated_data()[input$results_rows_selected,] %>%
      datatable(rownames=FALSE)
  )
}

shinyApp(ui, server)

但是，如果用户再次单击操作按钮，则会生成新单词，因此会删除第二个表中的选择。 我希望选择跟踪以前选择的单词并添加我们选择的任何新的单词选择。

我怎样才能做到这一点？ 如何在 memory 中保留我的反应变量的先前状态（在通过新点击生成新单词时冻结）并将它们连接到当前选择的单词？

到目前为止我还没有找到解决方案，在此先感谢您的帮助！

Answer 1

您可以将它们存储在反应值中，如下所示：

all_words <- reactiveVal(data.frame(ID = integer(0), Word = character(0)))

generated_data <- eventReactive(input$generate, {
  random_words <- 
    sapply(1:10, function(x) sample(letters, x) %>% paste(collapse=""))
  dat <- data.frame(ID=1:10, Word=random_words)
  all_words(rbind(all_words(), dat))
  dat
})

Answer 2

通过稍微修改 Stéphane Laurent 提出的代码，我可以提出这个完整的应用程序，该应用程序完全符合我的需求以及我提出问题时的想法。 可能有更简洁的解决方案，特别是关于变量dat和all_words 。

library(shiny)
library(DT)

ui <- fluidPage(
  actionButton("generate", "New random words"),
  h5("Original data"),
  dataTableOutput("results"),
  br(),
  h5("Selected data"),
  dataTableOutput("selection")
)

server <- function(input, output, session) {
  
  all_words <- reactiveVal(data.frame(ID = integer(0), Word = character(0)))
  dat <- data.frame(ID=integer(0), Word=character(0))
  
  generated_data <- eventReactive(input$generate, {
    all_words(rbind(all_words(), dat[input$results_rows_selected,]))
    random_words <- 
      sapply(1:10, function(x) sample(letters, x) %>% paste(collapse=""))
    dat <<- data.frame(ID=1:10, Word=random_words)
    dat
  })
  
  output$results <- renderDataTable(
    datatable(generated_data(), rownames = FALSE)
  )
  
  output$selection <- renderDataTable(
    rbind(generated_data()[input$results_rows_selected,], all_words()) %>%
      datatable(rownames=FALSE)
  )
}

shinyApp(ui, server)