在shiny app中删除下载文件中的第一列: downloadHandler问题

output$download <- downloadHandler(
  filename = function() {
    # 设置下载文件的文件名
    "data.csv"
  },
  content = function(file) {
    # 生成要下载的文件内容
    # 这里可以是一个数据框或者一个文件路径
    # 例如：write.csv(data, file)
  }
)

output$download <- downloadHandler(
  filename = function() {
    "data.csv"
  },
  content = function(file) {
    # 生成要下载的文件内容
    # 这里可以是一个数据框或者一个文件路径
    # 例如：write.csv(subset(data, select = -1), file)
  }
)

output$download <- downloadHandler(
  filename = function() {
    "data.csv"
  },
  content = function(file) {
    # 生成要下载的文件内容
    # 这里可以是一个数据框或者一个文件路径
    # 例如：write.csv(read.csv(file)[,-1], file, col.names = FALSE)
  }
)