Ошибка в x [list] <- values: объект типа 'symbol' не может быть подмножеством

Question

Я выполняю одно и то же преобразование для нескольких категориальных переменных в моем наборе данных и пытался сделать это с помощью цикла:

factor_features<-function(feature){
  data <- data %>%
    mutate(
            feature = replace(feature, is.na(feature), 0),
            feature =  ifelse(feature==1,1, 0)) 
 }

variables<-c("smoking_allowed", "pets_allowed")

for (i in variables){
      factor_features(as.name(i))
}

У меня ошибка:

Error in x[list] <- values : object of type 'symbol' is not subsettable
In addition: Warning messages:
1: In is.na(feature) :
  is.na() applied to non-(list or vector) of type 'symbol'
2: In is.na(feature) :

Возможно кто нибудь подскажи пожалуйста как исправить?