R/openxlsx/查找Excel文件中的第一个非空单元格

Question

我正在尝试将数据从 R 写入现有的 Excel 文件，同时保留格式。我能够按照这个问题的答案 ( Write from R into template in excel while preserving formatting ) 这样做，除了我的文件在开头包含空列，所以我不能只在单元格 A1 中开始写入数据。

作为解决方案，我希望能够找到第一个非空单元格，然后从那里开始写作。如果我运行 read.xlsx(file="myfile.xlsx")使用 openxlsx包，空列和空行被自动删除，只剩下数据，所以这对我不起作用。

所以我想我会先使用 wb <- loadWorkbook("file.xlsx") 加载工作表所以我可以访问 getStyles(wb) (有效)。但是，后续命令 getTables返回 character(0) , 和 wb$tables返回 NULL .我想不通这是为什么？这些变量会告诉我第一个非空单元格，我说得对吗？

我已经尝试直接在 Excel 文件中手动删除数据前面的空列和行，但这并没有改变。我走在正确的道路上还是有不同的解决方案？

Answer 1

根据 Stéphane Laurent 的建议, 包裹 tidyxl在这里提供完美的解决方案。

例如，我现在可以在 Excel 文件中搜索字符值，例如我感兴趣的变量名称(“Item”、“Score”和“Mean”，它们对应于 names() 的 data.frame我想写入我的 Excel 文件):

require(tidyxl)
colnames <- c("Item","Score","Mean")
excelfile <- "FormattedSheet.xlsx"
x <- xlsx_cells(excelfile)

  # Find all cells with character values: return their address (i.e., Cell) and character (i.e., Value)
  chars <- x[x$data_type == "character", c("address", "character")]

  starting.positions <- unlist(
    chars[which(chars$character %in% colnames), "address"]
  )
     # returns: c(C6, D6, E6)