在R中使用grepl计算要匹配的模式字符串的数量

我已经编写了一个与数据分析相关的脚本，我正在尝试使其尽可能灵活，以便它对以不同方式存储/使用数据的多个团队有用。我也在努力使它尽可能简单易用，因为我知道使用它的人不会像我一样精通R。我有几个用户定义的变量，必须在使用前进行更改：

headers = "B|M1|M2|M3"
keepscore = 3

我使用此信息通过在“headers”中查找字符串并仅保留这些列来删除不必要的数据列：

x = x[ ,grepl(headers, names(x))]

---

“M1”、“M2”和“M3”是包含数据以供分析的列，但这些列的数量因团队而异。“keepscore”是这些列的数目。我想做的不是让用户输入“keepscore”=3，而是让脚本推断头中有多少搜索字符串。字符串的数量是4，因此keepscore应该是4-1=3。那么，有没有办法计算“标题”中搜索字符串的数量呢？

您是否在寻找以下内容：

length(unlist(strsplit(headers,'|',fixed=TRUE)))-1

## [1] 3