[R][C++] Regression: big performance hit after removing schema binding

  library(arrow)
  dir.create(dir <- "/tmp/iris", showWarnings = F)
  for (day in seq_len(100)) {
    dir.create(glue("{dir}/day={day}"), showWarnings = F)
    for (i in seq_len(10)) {
      dfs <- map(seq_len(20), function(j) {
        names(iris) <- paste0(names(iris), j)
        iris
      })
      df <- dplyr::bind_cols(!!!dfs)
      write_parquet(df, glue("{dir}/day={day}/{i}.parquet"))
    }
  }

  library(arrow)
  system.time(
    open_dataset("/tmp/iris") %>%
    group_by(day, Species1) %>%
    summarise(N = n(), .groups = "drop") %>%
    collect())