Workaround for as.POSIXct() in R (< 4.3.0)

Author: HenrikBengtsson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: future.p2p
 Title: A Peer-to-Peer Compute Cluster via Futureverse
-Version: 0.3.0-9028
+Version: 0.3.0-9029
 Description: Implementation of the 'Future' API <doi:10.32614/RJ-2021-048> that resolves futures on a peer-to-peer ('P2P') compute environment. By using this future backend, you and your friends can share your spare compute resources with each other.
 Imports:
     future (>= 1.67.0),

NAMESPACE

@@ -16,6 +16,7 @@ export(host_cluster)
 export(p2p_cluster_name)
 export(pico_username)
 export(worker)
+if (getRversion() < "4.3.0") S3method(as.POSIXct,numeric)
 importFrom(callr,r_bg)
 importFrom(future,Future)
 importFrom(future,FutureBackend)

R/001.import_future_functions.R

@@ -25,3 +25,12 @@ future_supports_state_submitted <- local({
     .value
   }
 })
+
+
+## Backports
+#' @rawNamespace if (getRversion() < "4.3.0") S3method(as.POSIXct,numeric)
+if (getRversion() < "4.3.0") {
+  as.POSIXct.numeric <- function(x, tz = "", origin, ...) {
+    .POSIXct(if (missing(origin)) x else as.POSIXct(origin, tz = "GMT", ...) + x, tz)
+  }
+}