Travis build status R build status Codecov test coverage

The goal of {zipangu} is to replace the functionality provided by the {Nippon} archived from CRAN. Add some functions to make it easier to treat data that address, year, and Kanji.

Installation

You can install the released version of {zipangu} from CRAN with:

install.packages("zipangu")

and also, the developmment version from GitHub

install.packages("remotes")
remotes::install_github("uribo/zipangu")

API

library(zipangu)

Address

separate_address("東京都千代田区大手町一丁目")
#> $prefecture
#> [1] "東京都"
#> 
#> $city
#> [1] "千代田区"
#> 
#> $street
#> [1] "大手町一丁目"

Applied to data frame.

library(dplyr, warn.conflicts = FALSE)
data.frame(address = c("東京都千代田区大手町一丁目", "岡山県岡山市北区清心町16-13")) %>%
  mutate(sss = purrr::pmap(., ~ separate_address(..1))) %>%
  tidyr::unnest_wider(col = sss)
#> # A tibble: 2 x 4
#>   address                     prefecture city       street      
#>   <fct>                       <chr>      <chr>      <chr>       
#> 1 東京都千代田区大手町一丁目  東京都     千代田区   大手町一丁目
#> 2 岡山県岡山市北区清心町16-13 岡山県     岡山市北区 清心町16-13

Zip-code

read_zipcode(system.file("zipcode_dummy/13TOKYO_oogaki.CSV", package = "zipangu"), "oogaki")
#> # A tibble: 1 x 15
#>   jis_code old_zip_code zip_code prefecture_kana city_kana street_kana
#>   <chr>    <chr>        <chr>    <chr>           <chr>     <chr>      
#> 1 13101    100          1000001  トウキヨウト    チヨダク  チヨダ     
#> # … with 9 more variables: prefecture <chr>, city <chr>, street <chr>,
#> #   is_street_duplicate <dbl>, is_banchi <dbl>, is_cyoumoku <dbl>,
#> #   is_zipcode_duplicate <dbl>, status <dbl>, modify_type <dbl>

You can also load a file directly by specifying a URL.

read_zipcode("https://www.post.japanpost.jp/zipcode/dl/jigyosyo/zip/jigyosyo.zip")

Utilities

is_zipcode(7000027)
#> [1] TRUE
is_zipcode("700-0027")
#> [1] TRUE
zipcode_spacer("305-0053")
#> [1] "305-0053"
zipcode_spacer("305-0053", remove = TRUE)
#> [1] "3050053"

Calendar

Year (Japanese imperial year)

convert_jyear("R1")
#> [1] 2019

Public holidays in Japan

Given a year and holiday name as input, returns the date.

jholiday_spec(2020, "New Year's Day", lang = "en")
#> [1] "2020-01-01"

Holiday names can be specified in English (“en”) and Japanese (“jp”) by default, en is used.

jholiday_spec(2020, "Coming of Age Day", lang = "en")
#> [1] "2020-01-13"
jholiday_spec(2020, "\u6210\u4eba\u306e\u65e5", lang = "jp")
#> [1] "2020-01-13"

Check the list of holidays for a year with the jholiday().

jholiday(2020, lang = "jp")
#> $元日
#> [1] "2020-01-01"
#> 
#> $成人の日
#> [1] "2020-01-13"
#> 
#> $建国記念の日
#> [1] "2020-02-11"
#> 
#> $天皇誕生日
#> [1] "2020-02-23"
#> 
#> $春分の日
#> [1] "2020-03-20"
#> 
#> $昭和の日
#> [1] "2020-04-29"
#> 
#> $憲法記念日
#> [1] "2020-05-03"
#> 
#> $みどりの日
#> [1] "2020-05-04"
#> 
#> $こどもの日
#> [1] "2020-05-05"
#> 
#> $海の日
#> [1] "2020-07-23"
#> 
#> $スポーツの日
#> [1] "2020-07-24"
#> 
#> $山の日
#> [1] "2020-08-10"
#> 
#> $敬老の日
#> [1] "2020-09-21"
#> 
#> $秋分の日
#> [1] "2020-09-22"
#> 
#> $文化の日
#> [1] "2020-11-03"
#> 
#> $勤労感謝の日
#> [1] "2020-11-23"

Use is_jholiday() function to evaluate whether today is a holiday.

is_jholiday("2020-01-10")
#> [1] FALSE
is_jholiday("2020-02-23")
#> [1] TRUE

Convert

Hiragana to Katakana and more…

str_jconv("アイウエオ",
          str_conv_hirakana, to = "hiragana")
#> [1] "あいうえお"
str_conv_zenhan("ガッ", "zenkaku")
#> [1] "ガッ"
str_conv_romanhira("aiueo", "hiragana")
#> [1] "あいうえお"

Kansuji

kansuji2arabic(c("一", "百"))
#> [1] "1"   "100"
kansuji2arabic_all("北海道札幌市中央区北一条西二丁目")
#> [1] "北海道札幌市中央区北1条西2丁目"

Data set

jpnprefs
#> # A tibble: 47 x 5
#>    jis_code prefecture_kanji prefecture    region   major_island
#>    <chr>    <chr>            <chr>         <chr>    <chr>       
#>  1 01       北海道           Hokkaido      Hokkaido Hokkaido    
#>  2 02       青森県           Aomori-ken    Tohoku   Honshu      
#>  3 03       岩手県           Iwate-ken     Tohoku   Honshu      
#>  4 04       宮城県           Miyagi-ken    Tohoku   Honshu      
#>  5 05       秋田県           Akita-ken     Tohoku   Honshu      
#>  6 06       山形県           Yamagata-ken  Tohoku   Honshu      
#>  7 07       福島県           Fukushima-ken Tohoku   Honshu      
#>  8 08       茨城県           Ibaraki-ken   Kanto    Honshu      
#>  9 09       栃木県           Tochigi-ken   Kanto    Honshu      
#> 10 10       群馬県           Gunma-ken     Kanto    Honshu      
#> # … with 37 more rows