Return coarse gather mesh codes

coarse_gather(meshcode, distinct = FALSE)

Arguments

meshcode

character. mesh code

distinct

return unique meshcodes

Value

character vector

meshcode as character

Examples

m <- c("493214294", "493214392", "493215203", "493215301") coarse_gather(m)
#> [1] "49321429" "49321439" "49321520" "49321530"
coarse_gather(coarse_gather(m))
#> [1] "493214" "493214" "493215" "493215"
coarse_gather(coarse_gather(m), distinct = TRUE)
#> [1] "493214" "493215"