Merge designated city wards

Usage

city_desig_merge(city, merge_tokyo = FALSE)

Arguments

city: A jpcity_city object.
merge_tokyo: Whether to merge Tokyo special wards?

Value

A jpcity_city object.

Examples

city <- parse_city(c("01101", "13101"))
#> Guessing the interval to be 1972-04-01 JST--Inf.
#> ℹ You can override using `when` argument.
city_desig_merge(city)
#> <city[2]> Interval: 1972-04-01--Inf
#> [1] 01100 13101
#> 
#> Cities:
#>   city_code pref_name city_desig_name city_desig_name_kana city_name
#> 1     01100    北海道          札幌市           さっぽろし      <NA>
#> 2     13101    東京都            <NA>                 <NA>  千代田区
#>   city_name_kana
#> 1           <NA>
#> 2       ちよだく
city_desig_merge(city,
                 merge_tokyo = TRUE)
#> <city[2]> Interval: 1972-04-01--Inf
#> [1] 01100 13100
#> 
#> Cities:
#>   city_code pref_name city_desig_name city_desig_name_kana city_name
#> 1     01100    北海道          札幌市           さっぽろし      <NA>
#> 2     13100    東京都            <NA>                 <NA>  特別区部
#>   city_name_kana
#> 1           <NA>
#> 2   とくべつくぶ