allow setting the timezone

default is empty string == not set which implies local timezone
that is what we had before, and what R does

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,8 @@
+2016-10-17  Dirk Eddelbuettel  <[email protected]>
+
+        * inst/include/Rcpp/date_datetime/newDatetimeVector.h (Rcpp): Allow
+        setting of timezone attribute; default not-set leads to local as in R
+
 2016-10-16  Dirk Eddelbuettel  <[email protected]>
 
         * inst/include/Rcpp.h (RCPP_NEW_DATE_DATETIME_VECTORS): Add a new

inst/include/Rcpp/date_datetime/newDatetimeVector.h

@@ -28,8 +28,14 @@ namespace Rcpp {
 
     class newDatetimeVector : public NumericVector {
     public:
-        newDatetimeVector(SEXP vec) : NumericVector(vec) { setClass(); }
-        newDatetimeVector(int n) : NumericVector(n) { setClass(); }
+        newDatetimeVector(SEXP vec, const char* tz = "") :
+            NumericVector(vec) {
+            setClass(tz);
+        }
+        newDatetimeVector(int n, const char* tz = "") :
+            NumericVector(n) {
+            setClass(tz);
+        }
 
         inline std::vector<Datetime> getDatetimes() const {
             int n = this->size();
@@ -41,11 +47,16 @@ namespace Rcpp {
 
     private:
 
-        void setClass() {
+        void setClass(const char *tz) {
             Shield<SEXP> datetimeclass(Rf_allocVector(STRSXP,2));
             SET_STRING_ELT(datetimeclass, 0, Rf_mkChar("POSIXct"));
             SET_STRING_ELT(datetimeclass, 1, Rf_mkChar("POSIXt"));
             Rf_setAttrib(*this, R_ClassSymbol, datetimeclass);
+
+            if (tz != "") {
+                Shield<SEXP> tzsexp(Rf_mkString(tz));
+                Rf_setAttrib(*this, Rf_install("tzone"), tzsexp);
+            }
         }
     };
 }