如何导出R中DT表格至HTML并保留全部功能？

你的代码里有两处关键错误，直接导致FixedColumns功能失效、搜索时列变窄的问题：

1. 扩展配置遗漏+层级错误

   • 原代码仅在extensions参数中声明了'Buttons'，漏掉了FixedColumns，必须把两个扩展都加入列表。
   • FixedColumns的配置不该嵌套在options的子options里，直接放在顶层options中即可。

2. 重复配置冲突

   • 原代码在options里重复定义了dom（先写't'，后又写'Bfrtip'），会导致配置混乱，保留包含按钮的'Bfrtip'就行。
   • scrollX要放在顶层options中，确保表格能横向滚动，FixedColumns才能正常生效。

修正后的代码：

xyz_search_dt <- datatable(
  xyz_search_table_d,
  rownames = FALSE, 
  extensions = c('Buttons', 'FixedColumns'),  # 同时加载两个扩展
  options = list(
    autoWidth = TRUE, 
    dom = 'Bfrtip',  # 统一dom配置，保留按钮相关布局
    buttons = c('excel'),
    pageLength = table_rows,
    searchHighlight = TRUE,
    scrollX = TRUE,  # 横向滚动配置放在顶层
    fixedColumns = list(leftColumns = 1),  # 明确指定固定左侧列数，比如固定第1列
    columnDefs = list(list(width = '200px', targets = "feedback"))
  ),
  filter = list(position="top")
)

htmlwidgets::saveWidget(xyz_search_dt, "xyz_search_dt.html")

额外提醒：

• fixedColumns建议明确指定leftColumns或rightColumns，只写TRUE容易出现识别异常。
• 导出的HTML如果直接用本地浏览器打开，部分功能可能受跨域限制影响，建议用RStudio预览功能打开，或者确认saveWidget的selfcontained参数为TRUE（默认值），确保依赖文件被完整打包。

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