Gather more coarse mesh

Source: R/fine_separate.R

Return coarse gather mesh codes

coarse_gather(meshcode, distinct = FALSE)

Arguments

meshcode

character. mesh code
distinct

return unique meshcodes

Value

meshcode

Examples

m <- c("493214294", "493214392", "493215203", "493215301")
coarse_gather(m)

#> <meshcode[4]>
#> [1] 49321429 49321439 49321520 49321530
coarse_gather(coarse_gather(m))

#> <meshcode[4]>
#> [1] 493214 493214 493215 493215
coarse_gather(coarse_gather(m), distinct = TRUE)

#> <meshcode[2]>
#> [1] 493214 493215