使用gsub函数时出错

Question

我有以下代码。

library(dplyr)

options(dplyr.width = Inf)

fun <- function(col){

  x <- sapply(col, function(x){gsub(x, '\\\\*', col)}); 

  diag(x) <- NA; 

  apply(x, 1, function(x){x[which.min(nchar(x))]})

}

op <- ird_dupfil %>% group_by(ID) %>% mutate(Textfield = fun(Textfield))

我运行时遇到以下错误：

  

错误：正则表达式无效＆＃39;未收到客户

的回应      

结束请求

     

原因＆＃39;重复运算符的使用无效＆＃39;

有人请指导我解决此错误