Заменить некоторые векторные значения на NA не работает, если код помещен в функцию

Question

Скажите

x <- c(543271979, 64943072624964203854, 6239846230)

Команда ниже дает ожидаемые результаты

 x[(which(nchar(x)!=10))] <- NA

, но если я напишу ее в функции, она выдаст неверные результаты.Функция как показано ниже:

function(x){
    clean_vector <- x[(which(nchar(x)!=10))] <- NA
    return(clean_vector)
}