map vs invoke rows

#Hadley Gapminder Way
nested_iris <-
  iris %>%
  mutate(Setosa = ifelse(Species == "Setosa", yes=1, no=0) ) %>%
  select(-Species) %>%
  gather(key="measure", value="value", Sepal.Length:Petal.Width) %>%
  nest(Setosa, value)
  
iris_models <- map(nested_iris$data, ~ glm(data=., 
                                           formula = Setosa ~ value, 
                                           family=binomial(link="logit")) )
map(iris_models, glance)

#Miles Invoke Rows Way
  iris %>%
  mutate(Setosa = ifelse(Species == "Setosa", yes=1, no=0) ) %>%
  select(-Species) %>%
  gather(key="measure", value="value", Sepal.Length:Petal.Width) %>%
  nest(Setosa, value) %>%
  invoke_rows(.f=function(measure, data){
    glm(data=data, 
          formula = Setosa ~ value,
          family=binomial(link="logit")) %>% glance()          
    }, 
    .d = .,
    .collate="rows")