如何通过单击重置操作按钮重复重置 verbatimTextOutput？ （在使用 uiOutput 和 renderUI 时我们无法生成 verbatimTextOutput）

Question

ui<- fluidPage( sidebarPanel( checkboxGroupInput("predictors_1", "Select Predictor variables for Model 1", names(df[,3:8])), # some data frame

        actionButton("generate_1", "Generate", class = "btn-success"),
               
        actionButton("reset_1", "Reset", class = "btn-danger"),
               
        width = 3,
        position="left"
               
     )

      mainPanel(
             
             fluidRow(
                    column(width = 6,
                    verbatimTextOutput("model_1_summary"),
                     ),
                    column(width = 6,
                    verbatimTextOutput("model_2_summary")
                     )
                )

)

服务员<- function(input, output, session) {

       rv1 <- reactiveValues()
       
       # Functionality for Generate button
       rv1$model_1_formula <- eventReactive(input$generate_1, {
                                                   reformulate( termlabels = input$predictors_1,
                                                   response = "Precipitation")})
  
 
# Printing Model 1 Summary

output$model_1_summary <- renderPrint(tryCatch(summary(lm(formula = rv1$model_1_formula(),
                                                 data = training_set)),
                       error = function(e) print("Select at least one Predictor and click Generate!")))                

# Functionality for Reset Button
observeEvent(input$reset_1, {
             updateTextInput(session, "predictors_1", value = "")                                 
                             
             rv1$model_1_formula <- eventReactive(input$generate_1, {
               reformulate( termlabels = input$predictors_1,
                                         response = "Precipitation")})
})

}

我的代码按以下方式工作：

1. 我选择预测变量
2. 点击生成按钮。
3. 打印模型摘要。
4. 我点击重置按钮。
5. 输入更新为“”，但 renderPrint 输出不会消失。
6. 转到步骤 1.

所以代码可以工作，但还没有完成。任何帮助将不胜感激。