R/rmodb
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Craig Williams
2020-11-09 12:38:44 +00:00
parent f6af7b7e3c
commit 0a95f19d31
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/R_timestamp.c
View File

@@ -89,7 +89,11 @@ 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)