如何导出经RowReorder重排后的DT表格数据？

要捕获前端拖拽重排后的表格数据，核心是利用Shiny与DT交互时提供的input$<tableId>_rows_all变量——它会实时返回当前表格显示的所有行对应的原始数据集行索引，顺序完全匹配前端重排后的结果。

修改步骤： #

1. 在下载逻辑中，通过input$dtable_rows_all获取重排后的行索引顺序
2. 用该索引对原始子集数据重新排序，得到重排后的数据集
3. 将重排后的数据集（可转为data.table）导出

修改后的完整代码： #

RowReorder部分（无需修改）

output$dtable <- renderDT(server=FALSE,{ 
  datatable( 
    downloadsubset(),  
    colnames=c(ID = 1), 
    extensions ='RowReorder',
    options=list( 
      order=list(list(0,'asc')), 
      rowReorder=TRUE, 
      iDisplayLength=25,  
      columnDefs=list(list(className="nowrap", targets="_all" )  
    ))
  )
})

下载部分（关键修改）

# 下载按钮逻辑
output$download_file <- downloadHandler(
  filename = function() { 
    paste0("Download", gsub(":", "-", Sys.time()),".txt")
  },
  content = function(file) { 
    # 获取重排后的行索引，对原始子集重新排序
    reordered_data <- downloadsubset()[input$dtable_rows_all, ]
    # 转为data.table（可选，根据需求）
    reordered_data <- as.data.table(reordered_data)
    # 导出重排后的数据
    write.table(reordered_data, file, row.names = FALSE, na="", sep="\t", quote=FALSE) 
  }
)

说明： #

• input$dtable_rows_all在server=FALSE模式下始终有效：初始状态返回原始行顺序，用户拖拽重排后自动更新为新的顺序索引
• 如果你的downloadsubset()返回的已经是data.table，那reordered_data <- downloadsubset()[input$dtable_rows_all, ]直接就得到重排后的data.table，无需额外转换

内容的提问来源于stack exchange，提问作者Greg Deiulio