A <- c("Hello world", "Green 44", "Hot Beer", "Bip 6t")
sub("([[:alpha:]]+)", "*\\1*", A)
## => "*Hello* world" "*Green* 44" "*Hot* Beer" "*Bip* 6t"
library(stringr)
stringr::str_replace(A, "([[:alpha:]]+)", "*\\1*")
stringr::str_replace(A, "(\\p{L}+)", "*\\1*")
QSA8LSBjKCJIZWxsbyB3b3JsZCIsICJHcmVlbiA0NCIsICJIb3QgQmVlciIsICJCaXAgNnQiKQpzdWIoIihbWzphbHBoYTpdXSspIiwgIipcXDEqIiwgQSkKIyMgPT4gIipIZWxsbyogd29ybGQiICIqR3JlZW4qIDQ0IiAgICAiKkhvdCogQmVlciIgICAgIipCaXAqIDZ0IiAgICAgCgpsaWJyYXJ5KHN0cmluZ3IpCnN0cmluZ3I6OnN0cl9yZXBsYWNlKEEsICIoW1s6YWxwaGE6XV0rKSIsICIqXFwxKiIpCnN0cmluZ3I6OnN0cl9yZXBsYWNlKEEsICIoXFxwe0x9KykiLCAiKlxcMSoiKQ==
Standard input is empty
[1] "*Hello* world" "*Green* 44" "*Hot* Beer" "*Bip* 6t" [1] "*Hello* world" "*Green* 44" "*Hot* Beer" "*Bip* 6t" [1] "*Hello* world" "*Green* 44" "*Hot* Beer" "*Bip* 6t"
language:
R (R 3.5.2)
created:
2 years ago
Discover > Sphere Engine API
The brand new service which powers Ideone!
Discover > IDE Widget
Widget for compiling and running the source code in a web browser!
