// RcppParamsExample.h: Rcpp R/C++ interface class library RcppDate example

//

// Copyright (C) 2005 - 2006 Dominick Samperi

// Copyright (C) 2008 Dirk Eddelbuettel

// Copyright (C) 2009 - 2023 Dirk Eddelbuettel and Romain Francois

//

// This file is part of Rcpp.

//

// Rcpp is free software: you can redistribute it and/or modify it

// under the terms of the GNU General Public License as published by

// the Free Software Foundation, either version 2 of the License, or

// (at your option) any later version.

//

// Rcpp is distributed in the hope that it will be useful, but

// WITHOUT ANY WARRANTY; without even the implied warranty of

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

// GNU General Public License for more details.

//

// You should have received a copy of the GNU General Public License

// along with Rcpp. If not, see <http://www.gnu.org/licenses/>.

#include <RcppClassic.h>

RcppExport SEXP classicRcppDateExample(SEXP dvsexp, SEXP dtvsexp) {

SEXP rl = R_NilValue; // Use this when there is nothing to be returned.

char *exceptionMesg = NULL;

try {

RcppDateVector dv(dvsexp);

RcppDatetimeVector dtv(dtvsexp);

Rprintf("\nIn C++, seeing the following date value\n");

for (int i=0; i<dv.size(); i++) {

Rcpp::Rcout << dv(i) << std::endl;

dv(i) = dv(i) + 7; // shift a week

}

Rprintf("\nIn C++, seeing the following datetime value\n");

for (int i=0; i<dtv.size(); i++) {

Rcpp::Rcout << dtv(i) << std::endl;

dtv(i) = dtv(i) + 0.250; // shift 250 millisec

}

// Build result set to be returned as a list to R.

RcppResultSet rs;

rs.add("date", dv);

rs.add("datetime", dtv);

// Get the list to be returned to R.

rl = rs.getReturnList();

} catch(std::exception& ex) {

exceptionMesg = copyMessageToR(ex.what());

} catch(...) {

exceptionMesg = copyMessageToR("unknown reason");

}

if (exceptionMesg != NULL)

Rcpp::stop("%s", exceptionMesg);

return rl;

}