r - 在 stringr 中使用 perl/regex 到 upper\U

Question

是否可以在 stringr 函数中使用 perl 表达式？

例如:

> sub("(Hi)", "\\U\\1",  "Hi, how's it going?", perl = T)
[1] "HI, how's it going?"

这在 stringr 中失败了:

> str_replace("Hi, how's it going?", "(Hi)", "\\U\\1")
[1] "1, how's it going?"

我在 tidyverse idiom 工作，所以我想使用 str_replace 而不是 sub。总的来说很高兴知道。

Answer 1

您可以更改大小写，或以任何其他方式操作 stringr str_replace 中的整个匹配:

library(stringr)
str_replace("Hi, how's it going?", "Hi", function(m) str_to_upper(m))
## => [1] "HI, how's it going?"
str_replace("Hi, how's it going?", "Hi", function(m) toupper(m))
## => [1] "HI, how's it going?"

但是，由于匿名函数只允许将整个匹配值传递给它，因此没有 (g)sub 那样的灵 active ，这将行不通:

str_replace("Hi, how's it going?", "(H)(i)", function(m,n) paste0(str_to_lower(m),str_to_upper(n)))

使用 stringr_1.4.0 测试。