full_join() not working properly after gsub() call - duplicate rows produced in prduct

Question

Goal: merge FIPS codes into county data for US county map

I am trying to merge the fips codes for the countypop dataset from the usmaps pack