我有两个data. table。第一个data.table DT_1包含字符串和匹配类型，如下所示：

library(data.table)  
DT_1 <- data.table(Source_name = c("Apple","Banana","Orange","Pear","Random"),
                   Match_type = c("Anywhere","Beginning","Anywhere","End","End"))

然后，我想使用DT_1中指定的匹配类型返回DT_1中“Source_name”字符串与DT_2的列名的第一个匹配项（如下所示）。执行匹配时不区分大小写。

DT_2 <- data.table(Pear_1 = 1,Eat_apple = 1,Split_Banana = 1,
                   Pear_2 = 1,Eat_pear = 1,Orange_peel = 1,Banana_chair = 1)

例如，字符串“Apple”可以在DT_2的列名中的任何位置找到。它的第一个示例是“Eat_apple”。
对于下一个字符串“Banana”，它必须与列名字符串的开头匹配。第一个示例是“Banana_chair”。
我已经写了一些（非常难看的）代码来处理这个问题，如下所示：

library(purrr)      
DT_1[,Col_Name := names(DT_2)[unlist(pmap(.l = .SD[,.(x = Match_type,y = Source_name)],
              .f = function(x,y){
                  if(x == "Anywhere"){
                       grep(tolower(y),tolower(names(DT_2)))[1] # returns the first match if there is a match anywhere
                  }else if (x == "Beginning"){
                       grep(paste0("^",tolower(y),"."),tolower(names(DT_2)))[1] # returns the first match if the string is at the beginning (denoted by the anchor "^")
                  }else if (x == "End"){
                        grep(paste0(".",tolower(y),"$"),tolower(names(DT_2)))[1] # returns the first match if the string is at the end (denoted by the end anchor "$")
                  }}))]]

我尝试使用stringr包中的string_extract / string_detect来重现输出，但它不喜欢这样一个事实：DT_2中的模式和列数具有不同的长度。
有谁能提供一些关于我如何改进代码的建议吗？我并不拘泥于某个特定的方法。
先谢了菲尔