Fixed error "Error in as.POSIXct.numeric(e) : 'origin' must be supplied"

DESCRIPTION

@@ -2,7 +2,7 @@ Package: DTSg
 Type: Package
 Title: A Class for Working with Time Series Based on 'data.table' and 'R6' with
     Largely Optional Reference Semantics
-Version: 0.4.0.9000
+Version: 0.4.1
 Authors@R: person("Gerold", "Hepp", email = "ghepp@iwag.tuwien.ac.at", role = c("aut", "cre"))
 Description: Basic time series functionalities such as listing of missing
     values, application of arbitrary aggregation as well as rolling window

NEWS.md

@@ -1,5 +1,6 @@
-## DTSg v0.4.0.9000
+## DTSg v0.4.1
 
+* Fixed error "Error in as.POSIXct.numeric(e) : 'origin' must be supplied" for upcoming R 4.1.0
 * Slightly improved vignettes
 * Minor internal code improvements
 

R/rollback.R

@@ -60,14 +60,16 @@ rollback <- function(.dateTime, periodicity) {
     .dateTime <- structure(
       c(
         .dateTime[1L],
-        mapply(
-          rollToEndOfPreviousMonth,
-          lags = lags,
-          .dateTime = .dateTime[-1L],
-          MoreArgs = list(clause = clause, periodicity = periodicity)
+        do.call(
+          c,
+          Map(
+            rollToEndOfPreviousMonth,
+            lags = lags,
+            .dateTime = .dateTime[-1L],
+            MoreArgs = list(clause = clause, periodicity = periodicity)
+          )
         )
       ),
-      class = class(.dateTime),
       tzone = attr(.dateTime, "tzone")
     )
   }