如何从r中的文本中删除连续的大写字符？

Question

例如我有一个文本

a <- "This IS A SAMple sentence TMP"

我希望输出为：

"This A ple sentence"

我该怎么做？一些更简单的方法吗？

Answer 1

  library(stringr)
  str_trim(gsub("[A-Z]{2,}","",a))
  [1] "This  A ple sentence"