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

Question

我正在尝试从R将数据写入现有的Excel文件，同时保留格式。 我可以按照以下问题的答案进行操作（ 在保留格式的同时从R中写入R到excel中的模板中 ），除了我的文件开头包含空列，因此我不能仅仅开始在单元格A1中写入数据。

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

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

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

Answer 1

根据StéphaneLaurent的建议， tidyxl软件包在这里提供了完美的解决方案。

例如，我现在可以在Excel文件中搜索字符值，例如感兴趣的变量名（“ Item”，“ Score”和“ Mean”，它们对应于我想要的data.frame的names() 。写入我的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)