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

This commit is contained in:
bwilliams committed 2020-11-09 12:38:44 +00:00
1 parent f6af7b7e3c
commit 0a95f19d31
1 file changed
+4
+4
View File
@@ -89,8 +89,12 @@ SEXP R_TimestampExt(int64_t ts)
int64_t R_TimestampUnix(SEXP r_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); return (int64_t)(Rf_asReal(VECTOR_ELT(r_ts, 0)) / 1);
} }
}
int64_t R_TimestampExtUnix(SEXP r_ts) int64_t R_TimestampExtUnix(SEXP r_ts)
{ {