r - 调整包含链接的列的大小

Question

我在表 1 中添加了一个 data.frame 并将该表的第一列链接到表 2 的第一列。我还想根据单元格的内容调整表 1 列的大小，但它没有有链接时不起作用。我正在使用setColWidths()函数来应用更改。

wb <- createWorkbook()
addWorksheet(wb, "sheet1")
addWorksheet(wb, "sheet2")
df <- data.frame("A" = strrep(letters[1:2],25), "B" = strrep(letters[1:2],25))
writeData(wb, 1, df, startRow = 1)
for(ind in 1:nrow(df)){
  writeFormula(wb, 1,
               startRow = ind+1,
               x = makeHyperlinkString(
                 sheet = "sheet2", row = ind, col = 1,
                 text = df$A[ind]))
  }
setColWidths(wb, 1, cols = 1:2, widths = "auto") 
saveWorkbook(wb, file = "test.xlsx", overwrite = T)

标签： ropenxlsx