（In R）如何按标题大小写将字符串中的单词拆分为“WeLiveInCA”，同时保留缩写？

Question

（在R中）如何在不拆分缩写的情况下按字符串中的标题大小写拆分单词，例如“WeLiveInCA”到“We Live In CA”？

我知道如何在每个大写字母处拆分字符串，但这样做会拆分首字母/缩写，例如CA、USSR，甚至美国，我需要保留它们。

因此，我在考虑类似的逻辑类型，如果字符串中的单词不是首字母，那么用空格分割单词，其中小写字符后面跟着大写字符。

我下面的代码片段用大写字母拆分了带有空格的单词，但它打破了像CA这样的首字母缩写，变得不合时宜。

s <- "WeLiveInCA"
trimws(gsub('([[:upper:]])', ' \\1', s))
# "We Live In C A"

或者另一个例子...

s <- c("IDon'tEatKittensFYI", "YouKnowYourABCs")
trimws(gsub('([[:upper:]])', ' \\1', s))
# "I Don't Eat Kittens F Y I" "You Know Your A B Cs"

我想要的结果是：

"We Live In CA"
#
"I Don't Eat Kittens FYI" "You Know Your ABCs"

但这需要广泛适用（不仅仅是我的例子）

Answer 1

尝试使用基本Rgregexpr/regmatches。

s <- c("WeLiveInCA", "IDon'tEatKittensFYI", "YouKnowYourABCs")
regmatches(s, gregexpr('[[:upper:]]+[^[:upper:]]*', s))
#[[1]]
#[1] "We"   "Live" "In"   "CA"  
#
#[[2]]
#[1] "IDon't"  "Eat"     "Kittens" "FYI"    
#
#[[3]]
#[1] "You"  "Know" "Your" "ABCs"

解释。

1. [[：大写：]] 匹配一个或多个大写字母;
2. [^[：上写：]]* 匹配除大写字母以外的任何内容的零个或多个匹配。
3. 按顺序，这两个正则表达式匹配以大写字母开头的单词，后跟其他字母。