在R：“regcomp错误：'缺少'）'” - 'regexec问题

Question

product <- c('Model1','Model2','Model3')
price <- c(NA, NA, NA)
pricelist <- data.frame(product, price)

使用此数据框我运行以下for循环来扫描文档（在下面的代码中称为无格式文本）以获取价格并将价格插入数据框

   for (i in 1:nrow(pricelist))
        {
        p <- regexec( paste(pricelist[i,1], "(.*?)", "([0-9]+\\.[0-9][0-9])", sep = ""), unformattedtext)
        p2 <- regmatches(unformattedtext, p)
        p3 <- sapply(p2, function(x) x[3])  
        pricelist[i,2] <- p3
        }

如果我运行此循环，我会收到错误，regexec说这个 - ＆gt; regcomp错误：'缺少'）'' 但是如果手动插入i的值，使用完全相同的代码，它可以正常运行。关于我做错了什么的任何想法？如果重要的话，我正在使用plyr for rbind.fill在我的初始数据框中获取这些NA。