有没有办法将数据下载到R shiny中的特定文件夹中？

library(shiny)

ui <- fluidPage(
  titlePanel("将数据下载到特定文件夹"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入控件（例如，选择数据集的按钮或下拉菜单）
    ),
    mainPanel(
      # 添加输出控件（例如，显示数据表）
      tableOutput("data")
    )
  )
)

server <- function(input, output) {
  # 通过使用downloadHandler函数，创建下载功能
  output$data <- downloadHandler(
    filename = function() {
      # 指定下载文件的名称
      "data.csv"
    },
    content = function(file) {
      # 在这里执行数据处理的代码，并将结果保存到文件中
      # 这里是一个示例，将mtcars数据集保存为CSV文件
      write.csv(mtcars, file, row.names = FALSE)
    }
  )
}

shinyApp(ui, server)