Separate more fine mesh order

Return contains fine mesh codes

fine_separate(meshcode = NULL, order = c("harf", "quarter"), ...)

Arguments

meshcode	mesh code
order	Choose mesh order
...	other parameters for paste

Value

character vector

Examples

fine_separate(52350400, "harf")
#> [1] "523504001" "523504002" "523504003" "523504004"
fine_separate(52350400, "quarter")
#>  [1] "5235040011" "5235040012" "5235040013" "5235040014" "5235040021"
#>  [6] "5235040022" "5235040023" "5235040024" "5235040031" "5235040032"
#> [11] "5235040033" "5235040034" "5235040041" "5235040042" "5235040043"
#> [16] "5235040044"
fine_separate(52350400, "quarter", collapse = ",")
#> [1] "5235040011,5235040012,5235040013,5235040014,5235040021,5235040022,5235040023,5235040024,5235040031,5235040032,5235040033,5235040034,5235040041,5235040042,5235040043,5235040044"