使用Shiny更新dataframe值，并在Shiny会话结束后在本地环境中访问它

library(shiny)

# 创建Shiny应用程序的UI部分
ui <- fluidPage(
  textInput("name", "姓名："),
  numericInput("age", "年龄：", value = 0),
  actionButton("update", "更新"),
  tableOutput("dataframe")
)

# 创建Shiny应用程序的server部分
server <- function(input, output) {
  # 创建一个响应式对象，用于存储和更新dataframe的值
  dataframe <- reactive({
    data.frame(Name = input$name, Age = input$age)
  })
  
  # 监听更新按钮的点击事件
  observeEvent(input$update, {
    # 更新dataframe的值
    dataframe()$Name <- input$name
    dataframe()$Age <- input$age
  })
  
  # 将dataframe的值传递给UI部分，以便显示
  output$dataframe <- renderTable({
    dataframe()
  })
  
  # 在Shiny会话结束后，将dataframe保存到本地环境中
  session$onSessionEnded(function() {
    write.csv(dataframe(), "dataframe.csv", row.names = FALSE)
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)