[英]Substitute captured non-ascii letter with upper case
Is it possible to replicate, using only regex and only base R (only using the g*sub() functions), the following...是否可以仅使用正则表达式和仅基本 R(仅使用 g*sub() 函数)进行复制,以下...
sub("(i)", "\\U\\1", "string", perl = TRUE)
# [1] "strIng"
For non-ascii letters?对于非ASCII字母?
# Hoped for output
sub("(í)", "?", "stríng", perl = TRUE)
# [1] "strÍng"
PS. PS。 R regex flavours are TRE and PCRE.
R 正则表达式风格是 TRE 和 PCRE。
PS2. PS2。 I'm using R 4.2.1 with
Sys.getlocale()
giving:我正在使用 R 4.2.1 和
Sys.getlocale()
给出:
[1] "LC_COLLATE=Icelandic_Iceland.utf8;LC_CTYPE=Icelandic_Iceland.utf8;LC_MONETARY=Icelandic_Iceland.utf8;LC_NUMERIC=C;LC_TIME=Icelandic_Iceland.utf8"
For a slightly more involved/explicit solution that only uses base R:对于仅使用基本 R 的稍微复杂/明确的解决方案:
sub_nascii <- function(pattern, string) {
matches <- gregexpr(pattern, string)[[1]]
for (i in matches) {
substr(string, i, i) <- toupper(substr(string, i, i))
}
string
}
sub_nascii(pattern = "í", "stríng")
This works in my locale where sub
on it's own doesn't.这适用于我的语言环境,而
sub
本身不起作用。
You can use您可以使用
x="stríng"
gr <- gregexpr("í", x)
mat <- regmatches(x, gr)
regmatches(x, gr) <- lapply(mat, toupper)
# > x
# > [1] "strÍng"
See the R demo online .在线查看 R 演示。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.