Sometimes the timestamp is provided as a single double, not a vector

2020-11-09 12:38:44 +00:00
parent f6af7b7e3c
commit 0a95f19d31
1 changed files with 5 additions and 1 deletions
--- a/src/R_timestamp.c
+++ b/src/R_timestamp.c
@@ -89,8 +89,12 @@ SEXP R_TimestampExt(int64_t ts)

 int64_t R_TimestampUnix(SEXP r_ts)
 {
+  if (TYPEOF(r_ts) == REALSXP) {
+    return (int64_t)(Rf_asReal(r_ts) / 1);
+  } else {
    return (int64_t)(Rf_asReal(VECTOR_ELT(r_ts, 0)) / 1);
  }
+}

 int64_t R_TimestampExtUnix(SEXP r_ts)
 {