build a model within a function returns “variable lengths differ (found for 'var')”

Question

I am trying to build a function to run a model based on a list of variables. The code works fine outside a function

data <- ovarian
model <- glm(fustat