从 Excel 导入时如何忽略隐藏数据

Question

我有一组要导入到R 的 excel 文件。

这些文件包含我想忽略的隐藏数据——例如，根本不导入它，或者导入它时带有一个标志，表明它是隐藏的，以便我可以删除它。

文件包含两种类型的隐藏数据：

• 完整的工作表已隐藏
• 工作表中的特定行被隐藏。

有没有办法识别excel中的数据何时隐藏？

现在我正在使用gdata 包，但我很乐意使用XLConnect 或其他包

示例代码：

library(gdata)
xlsfile <- "test.xls"

# grab all the sheet names. 
# This is giving me both hidden & non-hidden sheets.  I would like only the latter
sheets <- sheetNames(xlsfile)

# read in the xls file, by sheet 
xlData <- 
  lapply(sheets, function(s) 
      read.xls(xlsfile, sheet=s, stringsAsFactors = FALSE))

如果需要，我可以创建一个虚拟的xls 文件并发布它。

Answer 1

XLConnect 有一个很好的函数，叫做isSheetHidden，它可以满足你的需求。假设Sheet2 是隐藏的：

library(XLConnect)
xlsfile <- "Book1.xls"
wb <- loadWorkbook(xlsfile, create = TRUE)
isSheetHidden(wb, "Sheet1") # FALSE
isSheetHidden(wb, "Sheet2") # TRUE

在gdata 中，您必须编写自己的函数来调用底层 perl 包来访问工作表属性，但这是可能的。