如何在R工作簿中插入内部链接？调用add_formula方法时遇错误求助

我使用a11ytable在R中创建无障碍表格，工作簿包含约20个工作表，需要给每个含表格数据的工作表插入指向“Notes”页面的内部链接，尝试相关方法时出现错误。

尝试过的代码 #

x <- '=HYPERLINK(\\"#Notes!B4\\", \\"Text to Display - Link to Notes\\")'
my_wb$add_formula(sheet = "Table 1", x = x, dims = "D4")

报错信息 #

Error in envRefInferField(x, what, getClass(class(x)), selfEnv) : 
‘add_formula’ is not a valid field or method name for reference class “Workbook”

问题原因 #

a11ytable基于openxlsx包创建Workbook对象，而非你参考的openxlsx2，因此不能使用openxlsx2的add_formula方法，需改用openxlsx的原生语法。

解决方案 #

1. 单个工作表添加链接

替换原代码为openxlsx原生方法：

library(openxlsx)

# 给指定工作表的D4单元格添加链接
writeFormula(wb = my_wb, sheet = "Table 1", x = '=HYPERLINK("#Notes!B4", "查看注释")', startCol = 4, startRow = 4)

2. 批量处理所有目标工作表

如果需要给除Notes外的所有工作表批量添加链接，可通过循环实现：

# 获取所有需添加链接的工作表（排除Notes本身）
target_sheets <- setdiff(getSheetNames(my_wb), "Notes")

# 遍历每个工作表插入链接
for(sheet in target_sheets) {
  # 写入链接到D4单元格（可调整startCol/startRow修改位置）
  writeFormula(
    wb = my_wb,
    sheet = sheet,
    x = '=HYPERLINK("#Notes!B4", "查看注释")',
    startCol = 4,
    startRow = 4
  )
}

# 保存修改后的工作簿
saveWorkbook(my_wb, "your_output_file.xlsx", overwrite = TRUE)

注意事项 #

• 确保工作簿中存在名为“Notes”的工作表，且B4是你要链接的目标单元格
• 可修改公式中的"查看注释"自定义链接显示文本
• 若需筛选特定工作表（比如仅处理名称含“Table”的），可调整target_sheets的筛选逻辑：

  target_sheets <- grep("Table", getSheetNames(my_wb), value = TRUE)
  

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