R - 自动调整 Excel 列宽

如何使用自动调整列宽openxlsx?

我的其中一列有一个日期变量（例如21-08-2017）并且如果使用复制ctrl+c从 Excel 中，并正常粘贴到其他地方，它显示为#######（如果增加列宽以显示 Excel 中的内容，则可以正常粘贴）。我想将重复性任务集成到我的代码中。这是我现在正在使用的：

WB <- loadWorkbook(File)
addWorksheet(WB, Sheet)
writeDataTable(WB, Sheet, DF, withFilter=F, bandedRows=F, firstColumn=T)
saveWorkbook(WB, File,  overwrite =TRUE)

我在这里附加了整个相关代码，我还根据表值进行条件格式化。请建议一种在此处集成自动调整列宽的方法。

编辑： 默认情况下，R 的 XLSX 输出具有默认的 8.43 列宽，我想将其设置为根据单元格内容自动调整，或者为每列手动设置。

致 Mod：这是我试图使用 openxlsx 在 R 中解决的问题。无论如何，感谢您的关注。

好的，我在文档中进行了又一次广泛的搜索后得到了它。由于缺乏在线解决方案，似乎很少有人真正使用它......

setColWidths(WB, Sheet, cols = 1:ncol(DF), widths = "auto")

但是，这仍然没有给出期望的结果，日期列仍然有点短并显示########;而列标题也不合适（因为它们的格式是bold).

EDIT:

最后选择添加c(7.5, 10, "auto", ...)仅仅替换"auto"，它不是完全动态的，但暂时解决了问题。希望看到更好的答案。