以下是一段代码，该代码将称为“行”的一大段文本拆分为多个字符串。只要它检测到标点符号（例如。或？），它就会拆分，但会排除紧跟在缩写后面的所有句点（例如Mr.）。
lines<-unlist(strsplit(lines, paste("(?<=(?<!", abbr,")[\\.\\?\\!])[\\s”’]"), perl = T))
所有缩写都存储在称为“ abbr”的向量中，并且全部大写（Mr.，Mrs.而不是mr。，mrs。）。我的代码存在的问题是，我希望它不区分大小写，并在不大写的文本中检测缩写，而我想做到这一点，而不是简单地将每个缩写的小写版本添加到缩写向量中。
