Приложение зависает при попытке установить данные в UserDefaults, без ошибок

Использование таблицы, но без сравнения с names:

numbers <- c(4,23,4,23,5,43,54,56,657,67,67,435)
x <- 67
numbertable <- table(numbers)
numbertable[as.character(x)]
#67 
# 2 

table полезно, если вы используете несколько раз для разных элементов. Если вам нужен только один счетчик, используйте sum(numbers == x)