towards fixing #158

njtierney · May 3, 2018 · 329a3e1 · 329a3e1
1 parent 9a84dff
commit 329a3e1
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -18,6 +18,7 @@ S3method(miss_var_table,grouped_df)
 S3method(replace_to_na,data.frame)
 S3method(replace_with_na,data.frame)
 S3method(shadow_shift,"NULL")
+S3method(shadow_shift,POSIXct)
 S3method(shadow_shift,character)
 S3method(shadow_shift,default)
 S3method(shadow_shift,factor)

diff --git a/R/shadow-shifters.R b/R/shadow-shifters.R
@@ -133,3 +133,21 @@ shadow_shift.character <- function(x, ...){
                  true = "missing",
                  false = x)
 }
+
+#' @export
+shadow_shift.POSIXct <- function(x,
+                                 this_origin = "1970-01-01",
+                                 ...){
+
+  # dat_date <- data.frame(date = as.POSIXct(c(111,
+  #                                            112,
+  #                                            150,
+  #                                            NA,
+  #                                            160),
+  #                                          origin = "1970-01-01"))
+
+  shifted <- as.integer(shadow_shift(as.numeric(x)))
+
+  as.POSIXct(shifted,
+             origin = this_origin)
+}