Regression in function call not returning same output as regression outside function

Question

Let\'s say I have a function like this:

get_contribution_table <- function(question_id){
  fit <- lm(answer_correct ~ number_players,
          data = f