如何防止regmatchs丢弃非匹配项? [英] How to prevent regmatches drop non matches?

问题描述

我想捕获第一个匹配项，如果没有匹配项，则返回 NA.

I would like to capture the first match, and return NA if there is no match.

regexpr("a+", c("abc", "def", "cba a", "aa"), perl=TRUE)
# [1]  1 -1  3  1
# attr(,"match.length")
# [1]  1 -1  1  2

x <- c("abc", "def", "cba a", "aa")
m <- regexpr("a+", x, perl=TRUE)
regmatches(x, m)
# [1]  "a"  "a"  "aa"

所以我期望 "a", NA, "a", "aa"

So I expected "a", NA, "a", "aa"

推荐答案

继续使用 regexpr:

r <- regexpr("a+", x)
out <- rep(NA,length(x))
out[r!=-1] <- regmatches(x, r)
out
#[1] "a"  NA   "a"  "aa"

这篇关于如何防止regmatchs丢弃非匹配项?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！