regex - 根据大写字母拆分字符串

Question

如何根据字符串包含的每个大写字母拆分字符串。无法从互联网上找到任何帮助。

a<-"MiXeD"
b<-"ServiceEventId"

我想得到

a<-c("Mi", "Xe", "D")
b<-c("Service", "Event", "Id")

Answer 1

这是一个选项，它使用一个后向断言和一个前瞻断言来查找(然后拆分)紧跟大写字母的字符间空格。了解为什么需要先行断言和后行断言(即不仅仅是先行断言)see this question and its answers .

f <- function(x) {
    strsplit(x, "(?<=.)(?=[[:upper:]])", perl=TRUE)
}

f(a)
# [[1]]
# [1] "Mi" "Xe" "D" 

f(b)
# [[1]]
# [1] "Service" "Event"   "Id"