Iterate over files

list.files("data/gapminder", pattern = "[.]xlsx$", full.names = TRUE) |>
  set_names(basename) |> 
  purrr::map(readxl::read_excel) |> 
  map(\(df) "Fix something that might be weird in each df") |> 
  map(\(df) "Fix a different thing") |> 
  purrr::list_rbind(names_to = "filename")