重新调整R中的两个列表

Question

我在targetframe的帮助下，使用以下代码找出了word.library中近似机器的位置：

tragetframe <- data.frame(words= c("Important Words",
                                   "I would also Importante worde of thes substring",
                                   "No mention of this crazy sayingsys"))

word.library <- data.frame(mainword = c("important word",
                                        "crazy sayings"),
                           keyID =c("2000", "3000"))

##find position
find <- function(word.library, tragetframe) {
  aregexec(word.library, tragetframe, max.distance = 0.1)
}

positions <- lapply(word.library[,1], find, tragetframe[,1])

之后我想提取匹配的子串，但它不起作用：

extract <- function(tragetframe, positions ) {
  regmatches(tragetframe, positions)
}
extracted_machtes <- lapply(tragetframe[,1], extract, positions)

希望有人能帮助我找到解决方案。