[Fix #442] Implement yq parser

NAMESPACE

@@ -218,6 +218,7 @@ export(ymd)
 export(ymd_h)
 export(ymd_hm)
 export(ymd_hms)
+export(yq)
 exportClasses(Duration)
 exportClasses(Interval)
 exportClasses(Period)

R/parse.r

@@ -90,6 +90,10 @@ dmy <- function(..., quiet = FALSE, tz = NULL, locale = Sys.getlocale("LC_TIME")
 dym <- function(..., quiet = FALSE, tz = NULL, locale = Sys.getlocale("LC_TIME"),  truncated = 0)
   .parse_xxx(..., orders = "dym", quiet = quiet, tz = tz, locale = locale,  truncated = truncated)
 
+#' @export
+#' @rdname ymd
+yq <- function(..., quiet = FALSE, tz = NULL, locale = Sys.getlocale("LC_TIME"))
+  .parse_xxx(..., orders = "yq", quiet = quiet, tz = tz, locale = locale, truncated = 0)
 
 ##' Parse dates that have hours, minutes, or seconds elements.
 ##'
@@ -809,8 +813,6 @@ fast_strptime <- function(x, format, tz = "UTC", lt = TRUE){
 }
 
 .parse_xxx <- function(..., orders, quiet, tz = NULL, locale = locale,  truncated){
-  ## if(!missing(tz))
-  ##   .deprecated_arg("tz", "1.5.6", 2)
   dates <- unlist(lapply(list(...), .num_to_date), use.names = FALSE)
   if(is.null(tz)){
     as.Date.POSIXct(parse_date_time(dates, orders, quiet = quiet, tz = "UTC",

tests/testthat/test-parsers.R

@@ -491,6 +491,8 @@ test_that("Quarters are parsed correctly", {
   out <- ymd(c("2016-01-01 UTC", "2016-04-01 UTC", "2016-07-01 UTC", "2016-10-01 UTC", NA), tz = "UTC")
   expect_equal(parse_date_time2(qs, orders = "Yq"), out)
   expect_equal(parse_date_time(qs, orders = "Yq"), out)
+  expect_equal(yq(qs, tz = "UTC"), out)
+  expect_equal(yq("16.1", "17.3", "2016.1"), ymd(c("2016-01-01", "2017-07-01", "2016-01-01")))
 })
 
 test_that( "Vectors of NA's are parsed as vectors of NA's", {