Come up with a better way to do bridge_model_end_yr

[cgrandin]

In doc/load-models.R. Currently it is manually done, and a huge pain to get right

[kellijohnson-NOAA]

Can't we just use the end year of the data file in the loaded model?

find_end_yr <- function(model_list) {
  model_list[["dat"]][["end_yr"]]
}
purrr::map(bridge_models, find_end_yr)

NOTE the above code was not tested it is just what I am thinking 🤔 will work in my head.

[cgrandin]

I know I tried that and there was some reason it wouldn't work, but I will start there. Thanks :)