R Shiny：保留旧输出

在闪亮的应用程序中，有没有办法保留旧的反应输出并将其与新的反应输出一起显示在应用程序中？举个例子：假设我想显示线性模型的汇总表，我逐渐向其中添加更多变量。我目前有一个checkboxGroupInput我使用该面板选择要包含在模型中的解释变量，然后渲染一个表格，其中包含使用所选变量估计的模型的摘要。现在，当我决定使用一组不同的变量时，我想保留原始汇总表的显示，同时在旧汇总表下方添加新的汇总表。如果可能，我想显示反应表的所有过去实例，即应用程序中显示的表数量应等于我决定在整个应用程序中使用的不同解释变量集的数量。目前，该表呈现为htmlOutput in the ui部分和stargazer包装和renderText in the server part.

这是一种有效的方法。它使用一个reactiveValues对象，每次单击“拟合模型”按钮时，它都会将新模型附加到列表末尾。数字输入控制屏幕上显示的模型数量。这会保留您在会话中适合的每个模型。

我没有做stargazer表，因为我不太熟悉它。但你应该能够很容易地适应这一点。

library(shiny)
library(broom)

shinyApp(
  ui = 
    shinyUI(
      fluidPage(
        sidebarLayout(
          sidebarPanel(
            checkboxGroupInput(inputId = "indep",
                               label = "Independent Variables",
                               choices = names(mtcars)[-1],
                               selected = NULL),
            actionButton(inputId = "fit_model",
                         label = "Fit Model"),
            numericInput(inputId = "model_to_show",
                         label = "Show N most recent models",
                         value = 2)
          ),
          mainPanel(
            htmlOutput("model_record")
          )
        )
      )
    ),

  server = 
    shinyServer(function(input, output, session){
      Model <- reactiveValues(
        Record = list()
      )

      observeEvent(
        input[["fit_model"]],
        {
          fit <- 
            lm(mpg ~ ., 
               data = mtcars[c("mpg", input[["indep"]])])

          Model$Record <- c(Model$Record, list(fit))
        }
      )

      output$model_record <- 
        renderText({
          tail(Model$Record, input[["model_to_show"]]) %>%
            lapply(tidy) %>%
            lapply(knitr::kable,
                   format = "html") %>%
            lapply(as.character) %>%
            unlist() %>%
            paste0(collapse = "<br/><br/>")
        })

    })
)