split_interval: Split date as character to starts and ends.

In uribo/odkitchen: Cooking Recipes And Tidy Utensils For Japan Open Data

Description

Split date as character to starts and ends.

Usage

split_interval(label, ...)

Arguments

label

target date character.

Value

tibble. Contains input dates sllit to starts and end days.

Examples

## Not run: 
split_interval("<e5><b9><b3><e6><88><90>29<e5><b9><b4>3<e6><9c><88>") # Determinate last day of month
split_interval("<e5><b9><b3><e6><88><90>27<e5><b9><b4>4<e6><9c><88>-5<e6><9c><88>")
split_interval("<e5><b9><b3><e6><88><90>27<e5><b9><b4>4~5<e6><9c><88>")
split_interval("<e5><b9><b3><e6><88><90>27<e5><b9><b4>4<e6><9c><88><e3><81><8b><e3><82><89>5<e6><9c><88>")
split_interval("<e5><b9><b3><e6><88><90>27<e5><b9><b4>4<e6><9c><88><e3><82><88><e3><82><8a>5<e6><9c><88>")
split_interval("<e5><b9><b3><e6><88><90>1<e5><b9><b4>11<e6><9c><88><e3><81><8b><e3><82><89><e5><b9><b3><e6><88><90>1<e5><b9><b4>12<e6><9c><88>")
split_interval("<e5><b9><b3><e6><88><90>20<e5><b9><b4>~<e5><b9><b3><e6><88><90>24<e5><b9><b4>")
split_interval("<e5><9b><bd><e5><ae><b6><e5><85><ac><e5><8b><99><e5><93><a1><e9><80><80><e8><81><b7><e6><89><8b><e5><bd><93><e5><ae><9f><e6><85><8b><e8><aa><bf><e6><9f><bb>(<e5><b9><b3><e6><88><90>28<e5><b9><b4><e5><ba><a6>)")
split_interval("<e5><b9><b3><e6><88><90>26<e5><b9><b4><e5><ba><a6>")
split_interval("(<e5><b9><b3><e6><88><90>28<e5><b9><b4>1<e6><9c><88>~3<e6><9c><88>)")
split_interval("H20.12.31<e7><8f><be><e5><9c><a8>")
split_interval("<e5><b9><b3><e6><88><90>17<e5><b9><b4>(2005<e5><b9><b4>)")
split_interval("<e5><b9><b3><e6><88><90>7<e5><b9><b4>")

require(magrittr); require(lubridate)
tibble::data_frame(
label = c("<e5><b9><b3><e6><88><90>27<e5><b9><b4>4<e6><9c><88>~5<e6><9c><88>",
         "<e5><b9><b3><e6><88><90>29<e5><b9><b4>3<e6><9c><88>",
         "<e5><b9><b3><e6><88><90>1<e5><b9><b4>11<e6><9c><88><e3><81><8b><e3><82><89>12<e6><9c><88>",
         "<e5><b9><b3><e6><88><90>1<e5><b9><b4>11<e6><9c><88><e3><81><8b><e3><82><89><e5><b9><b3><e6><88><90>1<e5><b9><b4>12<e6><9c><88>")
         ) %>% 
         dplyr::mutate(out = purrr::pmap(., split_interval)) %>% 
         tidyr::unnest() %>% 
         dplyr::filter(start_date %within% lubridate::interval(ymd("2017-01-01"), 
                                           lubridate::ymd("2018-01-01")))

## End(Not run)

uribo/odkitchen documentation built on May 28, 2019, 3:13 p.m.