map_df ?

[hadley]

map_df <- function(.f, .x, ..., .id = NULL) {
  .f <- as_function(.f)

  dplyr::bind_rows(map(.f, .x, ...), .id = .id)
}