检查R中的字符串是否为大写

Question

是否有更简单的方法来匹配正则表达式模式？例如，要检查给定的字符串是否为大写以下两种方法，但看起来过于复杂。检查stringr我发现没有更简单的解决方案的迹象。

方法1：

isUpperMethod1 <- function(s) {
  return (all(grepl("[[:upper:]]", strsplit(s, "")[[1]])))
}

方法2：

isUpperMethod2 <- function(s) {
  m = regexpr("[[:upper:]]+", s)
  return (regmatches(s, m) == s)
}

我故意省略处理空，NA，NULL字符串以避免膨胀代码。

大写模式可以推广到任意正则表达式（或字符集）。

我发现上述两种解决方案都没有问题，只是它们对于解决的问题看起来过于复杂。

Answer 1

您可以使用^和$模式匹配字符串的开头和结尾

grepl("^[[:upper:]]+$", s)

Answer 2

当使用“toupper”函数转换为大写时，为什么不测试单词是否与自身相同？

word1 <- "TEST"
word1 == toupper(word1) 

将是TRUE

Answer 3

如果你更喜欢住在tidyr宇宙中，这里是使用stringr的版本：

library(stringr)
str_detect(s, "^[:upper:]+$")