如何过滤R中的字符向量列表?

如何过滤R中的字符向量列表?,r,list,vector,readxl,R,List,Vector,Readxl,我开始兜圈子了。我觉得我已经在网上彻底搜索过了,但在回到这个问题上几天后,我怀疑我现在看不见树木了 我希望从公司SharePoint上的数千个excel文件中获取多组数据。我已经能够使用readxl成功地进行刮取 library(readxl) library(data.table) library(XLConnect) root_URL <- '//companyname.office.abc.com/sites/thesite/thefolder') folder.list <

我开始兜圈子了。我觉得我已经在网上彻底搜索过了,但在回到这个问题上几天后,我怀疑我现在看不见树木了

我希望从公司SharePoint上的数千个excel文件中获取多组数据。我已经能够使用readxl成功地进行刮取

library(readxl)
library(data.table)
library(XLConnect)

root_URL <- '//companyname.office.abc.com/sites/thesite/thefolder')
folder.list <- list.dirs(root_URL)
file.list <- list.files(folder.list, pattern = "*.(xlsx|XLSX|xls|XLS|xlsm|XLSM|xlsb|XLSB)$",full.names = T,include.dirs = T)
库(readxl)
库(数据表)
库(XLConnect)

root\u URL我认为这应该有效:

library(readxl)
df.list <- lapply(ex.list, function(x) 
  if ("Address" %in% excel_sheets(x)) read_excel(x,sheet = 'Address')
  else NULL)
库(readxl)

df.list读取所有文件,您可以使用

aa <- list(c("A", "B", "C"),
           c("A", "B", "Address"),
           c("A", "B", "Address"),
           c("A", "B", "C"))

aa[grep(pattern = "Address", aa)]

aa@Martin_Schmelzer。这对我来说效果不错,但目前无法投票支持。非常感谢。
library(readxl)
df.list <- lapply(ex.list, function(x) 
  if ("Address" %in% excel_sheets(x)) read_excel(x,sheet = 'Address')
  else NULL)
aa <- list(c("A", "B", "C"),
           c("A", "B", "Address"),
           c("A", "B", "Address"),
           c("A", "B", "C"))

aa[grep(pattern = "Address", aa)]