removed unnecessary lubridate methods that were not used anyways (as_date and as_datetime are s4 generics)

Author: Stefan Fleck

R/date_xx.R

@@ -119,7 +119,7 @@ print.date_xx <- function(
 #' @rdname as.Date.date_xx
 #' @name as.Date.date_xx
 #'
-#' @example
+#' @examples
 #' as.Date(date_yq(2017, 2))
 #' as.POSIXlt(date_yq(2017, 2))
 #'
@@ -128,24 +128,6 @@ print.date_xx <- function(
 #'
 
 
-#' @rdname as.Date.date_xx
-#' @export
-as_date.date_xx <- function(x, ...){
-  assert_lubridate()
-  as.Date(x, ...)
-}
-
-
-
-
-#' @rdname as.Date.date_xx
-#' @export
-as_datetime.date_xx <- function(x, ...){
-  assert_lubridate()
-  lubridate::as_datetime(as.Date(x), ...)
-}
-
-
 
 
 #' @rdname as.Date.date_xx
@@ -162,5 +144,6 @@ as.POSIXlt.date_xx <- function(x, tz = "", ...){
 #' @inheritParams base::as.POSIXlt
 #' @export
 as.POSIXct.date_xx <- function(x, tz = "", ...){
-  as.POSIXct(as.Date(x), tz = tz, ...)
+  as.POSIXct(as.Date(x, tz = tz), tz = tz, ...)
+
 }

R/dint-package.R

@@ -4,8 +4,6 @@
 
 
 .onLoad <- function(...) {
-  dyn_register_s3_method("lubridate", "as_datetime", "date_xx")
-  dyn_register_s3_method("lubridate", "as_date", "date_xx")
   dyn_register_s3_method("lubridate", "year", "date_xx")
   dyn_register_s3_method("lubridate", "month", "date_xx")
   invisible()