如何通过shiny app将更新后的表或数据帧保存到已有的csv文件中？

library(shiny)
library(readr)

ui <- fluidPage(
  titlePanel("保存数据到CSV文件"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入控件，用于更新数据
      # ...
    ),
    mainPanel(
      # 显示表格或数据帧
      tableOutput("data_table")
    )
  )
)

server <- function(input, output) {
  # 加载已有的csv文件作为初始数据
  data <- read_csv("path/to/your/csv/file.csv")
  
  # 更新数据的操作
  observeEvent(input$update_button, {
    # 更新数据
    # ...
    
    # 将更新后的数据保存到已有的csv文件中
    write_csv(data, "path/to/your/csv/file.csv")
  })
  
  # 显示更新后的表格或数据帧
  output$data_table <- renderTable({
    # 返回更新后的数据
    data
  })
}

shinyApp(ui, server)