Extract administration mesh code
administration_mesh(code, to_mesh_size)
administration code
target mesh size. That is, 1 for 1km, and 0.5 for 500m. From 80km to 0.100km.
if (FALSE) {
administration_mesh(code = "35201", to_mesh_size = 1)
administration_mesh(code = "08220", to_mesh_size = 80)
administration_mesh(code = c("08220", "08221"), to_mesh_size = 10)
administration_mesh(code = "35", to_mesh_size = 80)
administration_mesh(code = c("33", "34"), to_mesh_size = 80)
}