Я только что написал один, но мне было интересно, существует ли он уже в R.
Вот функция BTW (предложения по улучшению приветствуются):
set.seed(50)
x <- sample(c(letters, LETTERS), 7)
is.lower <- function(x)
{
unlist(sapply(x, function(x2) {x2 %in% letters}))
}
is.lower(x)
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
Нет необходимости делать свою собственную функцию.
Другой подход со значениями вместо логического индекса в результате состоит в том, чтобы называть буквы как они сами и использовать «[» с x в качестве индекса:
names(letters) <- letters
letters[x]
#<NA> w k <NA> y c <NA>
# NA "w" "k" NA "y" "c" NA
