通过与数据框中的列匹配来过滤列表

Question

我有一个 sheet_names 列表：

path<-paste0("wd", sheets$file[1:nrow(sheets)])
sheet_names<-lapply(path, readxl::excel_sheets)

我只想保留 sheet_names 列表中与数据框列 sheets$table_n 匹配的相关工作表

我尝试过 mapply 和 grepl，但我得到的错误是长度 > 1，并且只会使用第一个元素：

rel_sheets<- sheet_names[grepl(toString(sheets$table_n[1:nrow(sheets)]),sheet_names)]

我也尝试过使用 which，但它没有返回列表：

rel_sheets<- sheet_names[which((sheets$table_n %in% sheet_names)==TRUE)]

对 tidyverse 的任何建议将不胜感激。