write_all_mapping_tables() potentially writes mapping table 1 year into the future

[TSchiefer]

write_all_mapping_tables() determines the latest target year by:

MAX_YEAR <- lubridate::year(
    max(swc_get_municipality_mutations()$mAbolitionDate, na.rm = TRUE)
  ) + 1L

which means in case the last abolition happened during the current year, the target year will be 1 year in the future.

I would suggest

lubridate::year(
    max(swc_get_municipality_mutations()$mAdmissionDate, na.rm = TRUE)
)

[krlmlr]

It seems ok -- #58 created a table that would be valid, to the best of our knowledge, for the municipality level of 2023. Can you please double-check?