Parsing dates with readr

dates.R

library(readr)
the_dates   <- c("2020-02-04", "04 February 2020", "2/4/20"  , "4/2/20"  , "04 Février 2020")
the_formats <- c("%Y-%m-%d", "%d %B %Y", "%m/%d/%y", "%d/%m/%y", "%d %B %Y")
the_locales <- list(locale("en"), locale("en"), locale("en"), locale("en"), locale("fr"))

purrr::pmap(
  list(the_dates, the_formats, the_locales),
  function(date, format, locale) {
    parse_date(date, format = format, locale = locale)
  }
)
#> [[1]]
#> [1] "2020-02-04"
#> 
#> [[2]]
#> [1] "2020-02-04"
#> 
#> [[3]]
#> [1] "2020-02-04"
#> 
#> [[4]]
#> [1] "2020-02-04"
#> 
#> [[5]]
#> [1] "2020-02-04"