Add vec-ptype method for weekday

Author: DavisVaughan

NAMESPACE

@@ -433,6 +433,7 @@ S3method(vec_proxy_compare,clock_year_month_weekday)
 S3method(vec_ptype,clock_iso_year_week_day)
 S3method(vec_ptype,clock_naive_time)
 S3method(vec_ptype,clock_sys_time)
+S3method(vec_ptype,clock_weekday)
 S3method(vec_ptype,clock_year_month_day)
 S3method(vec_ptype,clock_year_month_weekday)
 S3method(vec_ptype,clock_year_quarter_day)

R/weekday.R

@@ -157,6 +157,11 @@ vec_ptype_abbr.clock_weekday <- function(x, ...) {
 
 # ------------------------------------------------------------------------------
 
+#' @export
+vec_ptype.clock_weekday <- function(x, ...) {
+  clock_empty_weekday
+}
+
 #' @export
 vec_ptype2.clock_weekday.clock_weekday <- function(x, y, ...) {
   x
@@ -506,3 +511,11 @@ reencode_western_to_iso <- function(code) {
   code[code == 0L] <- 7L
   code
 }
+
+# ------------------------------------------------------------------------------
+
+clock_init_weekday_utils <- function(env) {
+  assign("clock_empty_weekday", weekday(integer()), envir = env)
+
+  invisible(NULL)
+}

R/zzz.R

@@ -15,6 +15,7 @@
   clock_init_sys_time_utils(clock_ns)
   clock_init_naive_time_utils(clock_ns)
   clock_init_zoned_time_utils(clock_ns)
+  clock_init_weekday_utils(clock_ns)
 
   vctrs::s3_register("pillar::pillar_shaft", "clock_calendar", pillar_shaft.clock_calendar)
   vctrs::s3_register("pillar::pillar_shaft", "clock_time_point", pillar_shaft.clock_time_point)

tests/testthat/test-weekday.R

@@ -173,3 +173,10 @@ test_that("can't compare or order weekdays (#153)", {
   expect_snapshot_error(xtfrm(weekday(1:2)))
   expect_snapshot_error(vec_order(weekday(1:2)))
 })
+
+# ------------------------------------------------------------------------------
+# vec_ptype()
+
+test_that("ptype is correct", {
+  expect_identical(vec_ptype(weekday(1:7)), weekday(integer()))
+})