R-精确字符串匹配-重新调整

Question

下面的测试输入在一个名为input的文件中

Exploratory objectives :    

This is Exp objective 1

This is Exp objective 2

3.3 Exploratory objective(s) 

This is Exp objective 1   

This is Exp objective 2

从这个文本文件中，我尝试使用下面的“探索性目标”来实现grep。我期望的输出行号是7。

但是，当我运行以下命令时:我将行号作为1。有人能指出我的grep有什么问题吗?为什么它不返回7？还有我怎么能解决这个问题？

 key_str <-"Exploratory objective(s)"  
 key_str 
 key_pat <- paste0("(", key_str, ")", "(?![[:alpha:]])")
 line_number<-grep(key_pat,Input,perl=TRUE)
 line_number

 Expected line_number: 7

 Output line_number using above: 1 (Incorrect)

Answer 1

您必须转义括号：

key_str <- "Exploratory objective\\(s\\)"

如果字符串是动态生成或从文件中读取的，请使用以下命令：

key_str <- gsub("([\\(\\)])", "\\\\\\1", string)