删除后如何将旧的反应输入存储在R闪亮中答案

【问题标题】：How to store an old reactive input in R shiny after removing it删除后如何将旧的反应输入存储在R闪亮中
【发布时间】：2019-12-19 00:18:17
【问题描述】：

我有以下 r 闪亮的应用程序。我们先导入库

 library(shiny)

现在我们生成 UI

 ui <- fluidPage(
 downloadButton("dl", "Download"),
 textInput("text","word inpput"),
 mainPanel(
 tableOutput("text1")
                      ))

接下来我们生成服务器

  server <- function(input, output) {

    output$text1 <- renderTable({

      df1<-iris
      df1$text <- input$text
      return(df1)
      })
            }

最后运行应用程序

    shinyApp(ui, server)

我们现在可以在文本框中添加一个文本以 dd 到数据框输出中的列文本。但是，如果我删除这个词，数据帧输出会由于反应性而恢复到其原始状态。有没有办法可以使输出的变化永久化，这样即使文本输入框的值被替换，旧值也会随着新值一起反映

【问题讨论】：

请添加预期输出
只有您需要时，您想用新的文本输入替换旧的文本输入吗？或想要另一列，如 Text2 输入，其中包含新数据。
除了替换之外，还需要添加新文本以配合旧文本

标签： r shiny reactive-programming

【解决方案1】：

假设我理解正确，请测试以下内容并告诉我它是否解决了您的问题或仍然需要实现的目标：

server <- function(input, output) {

    values <- reactiveValues(df1 = iris)

    observeEvent(req(input$text != ""), {
        values$df1[, paste0("text", ncol(values$df1)-ncol(iris))] <- input$text
    })

    output$text1 <- renderTable({
        return(values$df1)
    })
}

【讨论】：

您可能希望使用selectInput() 和multiple = TRUE 使其更清晰。