打印双引号时避免 paste0 中的转义字符

Question

我正在编写一个脚本以使用 writeFormula 将公式输入到 openxlsx excel 工作表中。对于函数，我需要指定一个长度等于单元格数的公式向量。

这是我想要做的：

for(i in 2:(nrow(data)+1)){formula_dep<-append(formula_dep, paste0("IFERROR(SEARCH(\"pack\",H",i,"))"))}
writeFormula(wb=file, sheet="data", x=formula_dep, startCol=9, startRow=2)

在输出中，转义字符可能会打印到 Excel 表中，因此它已损坏（我必须修复才能打开文件，其中列中没有任何内容）。

在 R 中，输出是（和往常一样）：

"IFERROR(SEARCH(\"pack\",H2))"

虽然转义字符在许多其他任务中都不是问题，但在这个任务中，我无法完成这项工作。我不能使用单引号，因为某些未知原因 Excel 不允许在 FIND 或 SEARCH 函数中使用单引号（可能是正则表达式问题）。请在此处提供解决方案。

注意：我不能只在数据框本身（使用 R 公式）中灌输公式，因为它应该适用于 excel 文件本身的用户输入。

我对 Excel 端（在做同样事情时更改公式）或 R 端的解决方案持开放态度。

Answer 1

"\" 不存在，它只是表明 print 正在转义 "，请参阅：

cat("IFERROR(SEARCH(\"pack\",H2))")
# IFERROR(SEARCH("pack",H2))

这是一个工作示例：

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "Sheet 1")

df <- data.frame(
  a = letters[1:3],
)

writeData(wb, sheet = 1, x = df)

f <- paste0("FIND(\"b\",A", seq(nrow(df)) + 1L, ")")

f[ 1 ]
#[1] "FIND(\"b\",A2)"

cat(f[ 1 ])
# FIND("b",A2)

writeFormula(wb, sheet ="Sheet 1", x = f, startCol = 2, startRow = 2)

saveWorkbook(wb, "writeFormulaExample.xlsx", overwrite = TRUE)