``` R map_df <- function(.f, .x, ..., .id = NULL) { .f <- as_function(.f) dplyr::bind_rows(map(.f, .x, ...), .id = .id) } ```