Add japan holiday utility functions

[uribo]

Summary

日本の祝日を扱うための3つの関数を追加。

• jholiday(), jholiday_spec() ... その年の祝日（国民の祝日に関する法律で定められる祝日のみ対象）を一覧、対象の祝日の日付を返却。祝日の名前は英語と日本語で指定できる。
• is_jholiday() ... 対象の日付が祝日かどうかを判定。ここでは内閣府が公開する国民の祝日csvファイルを利用しているので「大喪の礼」や「天皇の即位の日及び即位礼正殿の儀の行われる日」を休日とみなす。

また補助関数として find_date_by_wday() を追加。この関数は第X週目のY曜日の日付を返却する。

Demo

### jholiday, jholiday_spec ``` r library(zipangu) jholiday_spec(2019, "Sports Day") #> [1] "2019-10-14" # 2020年はオリンピックの関係でスポーツの日が移動する jholiday_spec(2020, "スポーツの日", lang = "jp") #> [1] "2020-07-24" # 2020年の祝日一覧 (「国民の祝日に関する法律」で定められた祝日のみ) jholiday(2020, "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" # 「国民の祝日に関する法律」策定前の1947年以前では出力しない jholiday(1947, "jp") #> Warning: The year specified must be after the law was enacted in 1948 ``` ### is_jholiday ```r is_jholiday("2020-01-01") #> [1] TRUE # 馴染み深い「天皇誕生日」は2020年に移動する is_jholiday("2018-12-23") # TRUE #> [1] TRUE is_jholiday("2019-12-23") # FALSE #> [1] FALSE is_jholiday("2020-02-23") # TRUE #> [1] TRUE is_jholiday("2020-05-06") # TRUE #> [1] TRUE ```

Related issues

Close #3