chain entry in redist_plans gets overwritten in rbind()

[christopherkenny]

Reprex as requested @CoryMcCartan

devtools::load_all()
#> ℹ Loading redist
#> Loading required package: redistmetrics

data(iowa)
ia <- redist_map(iowa, existing_plan = cd_2010, pop_tol = 0.01)
plans_1 <- redist_smc(ia, 100, runs = 2)
plans_2 <- redist_smc(ia, 100, runs = 2)

rbind(plans_1, plans_2) |> 
    dplyr::count(chain)
#>   chain   n
#> 1     1 804
#> 2     2 804

^{Created on 2024-03-20 with reprex v2.0.2}

Instead, this should look something like NA, 1, 2, NA, 3, 4 but it comes out as 1, 2 because of this line:

redist/R/redist_plans.R

Line 509 in d2e4836

ret <- bind_rows(lapply(objs, dplyr::as_tibble), .id = "chain")