Filtering through a list using purrr + map

Question

I have a dataframe on which i run multiple GLMs, using the whole data set.

  df <- data.frame(Var1 = rep(as.factor(1:2), 200),
                   Var2 = rep(as