Update files

Author: Zülal Bekerecioğlu

R/dateDS.R

@@ -165,9 +165,9 @@ dateDS <- function(x=NULL, type=NULL,
 
     # inputs[[1]] = start date, inputs[[2]] = end date
     units <- list(
-      years  = lubridate::years(1),
-      months = lubridate::months(1),
-      days   = lubridate::days(1)
+      years  = lubridate::period(years  = 1),
+      months = lubridate::period(months  = 1),
+      days   = lubridate::period(days  = 1)
     )
 
     result <- lubridate::interval(inputs[[1]], inputs[[2]]) %/% units[[unit]]