Есть ли функция для поиска всех строчных букв в символьном векторе?

Question

Я только что написал один, но мне было интересно, если он уже существует в R.

Вот функция Кстати (предложения по улучшению приветствуются):

set.seed(50)
x <- sample(c(letters, LETTERS), 7)

is.lower <- function(x)
{
    unlist(sapply(x, function(x2) {x2 %in% letters}))
}

is.lower(x)

Answer 1

grepl("[a-z]",x) например?

> grepl("[a-z]",x)
[1] FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE

А зачем это сложно?

> x %in% letters
[1] FALSE  TRUE  TRUE FALSE  TRUE  TRUE FALSE

Нет необходимости создавать свои собственные функции.

Answer 2

Другой подход со значениями вместо логического индекса в качестве результата заключается в названии букв как самих себя и использовании «[» с x в качестве индекса:

 names(letters) <- letters
 letters[x]
#<NA>    w    k <NA>    y    c <NA> 
#  NA  "w"  "k"   NA  "y"  "c"   NA