Передача имени переменной в функцию выражений dplyr

Question

Я пытаюсь написать функцию, в которой входными данными являются фрейм данных и имя переменной из этого конкретного фрейма данных, которые должны использовать выражения dplyr внутри функции. Функция записывается как:

nested_list_to_dummy <- function(data_frame,variable){
data_frame %>% select(variable) %>% 
mutate(ID_before = row_number()) %>% 
unnest() %>% 
mutate(ID_after = row_number(), count = 1,
       variable = fct_lump(factor(variable), n = min(8, 
length(unique(variable))))) %>%
spread(key = variable, value = count, fill = 0) %>%
group_by(ID_before) %>%
summarise_at(vars(colnames(.)[-c(1,2)]), funs(sum)) %>% select(-1) %>%
mutate_all(funs(as.logical))  
}

Однако, когда я вызываю функцию, я получаю следующую ошибку:

nested_list_to_dummy(movies, genres)
Error in .f(.x[[i]], ...) : object 'genres' wasn't found

Как я могу сделать это правильно?

Заранее спасибо.