最好使用stringr
包,我想创建一个函数extract()
以字符串向量作为参数
vec <- c(
"div(span(icon(\"hospital-user\"), i18n$t(\"Enrolments\"), \"or\", i18n$t(\"Paper\"))),",
"a string with no matching pattern",
"Lala i18n$t(\"Rock\")"
)
并返回里面的所有元素i18n$t(\""\)
.
在上面的例子中,extract(vec)
会回来"Enrolments"
, "Paper"
, "Rock"
.
我们可以使用正则表达式环视来提取单词(\\w+
) 后面跟着一个n$t("
. The $
是元字符,所以只需转义(\\
) it
library(stringr)
str_extract_all(vec, '(?<=n\\$t\\(")\\w+')[[1]]
[1] "Enrolments" "Paper" "Rock"
如果有多个元素,则使用unlist
unlist(str_extract_all(vec, '(?<=n\\$t\\(")\\w+'))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)