Как проверить, был ли затронут текст UILabel?

Это документированная функция:

Если x имеет длину 1, это numeric (в смысле is.numeric) и x >= 1, выборка по образцу происходит из 1:x. Обратите внимание, что эта удобная функция может привести к нежелательному поведению, когда x имеет разную длину в таких вызовах, как sample(x).

blockquote>

Альтернативой является написать свою собственную функцию, чтобы избежать этой функции:

sample.vec <- function(x, ...) x[sample(length(x), ...)]
sample.vec(10)
# [1] 10
sample.vec(10, 3, replace = TRUE)
# [1] 10 10 10

Некоторые функции с аналогичным поведением перечислены в seq vs seq_along. Когда использование seq приведет к непреднамеренным результатам?