// [[Rcpp::export]]
std::vector<bool> isWeekend(std::string calendar, std::vector<QuantLib::Date> dates) {
boost::shared_ptr<QuantLib::Calendar> pcal(getCalendar(calendar));
int n = dates.size();
std::vector<bool> weekends(n);
for (int i=0; i<n; i++) {
weekends[i] = pcal->isWeekend(dates[i].weekday());
}
return weekends;
}
RcppExport SEXP isWeekend(SEXP calSexp, SEXP dateSexp){
try {
boost::shared_ptr<QuantLib::Calendar> pcal( getCalendar(Rcpp::as<std::string>(calSexp)) );
Rcpp::DateVector dates = Rcpp::DateVector(dateSexp);
int n = dates.size();
std::vector<int> weekends(n);
for (int i=0; i<n; i++) {
QuantLib::Date day( dateFromR(dates[i]) );
weekends[i] = pcal->isWeekend(day.weekday());
}
return Rcpp::wrap(weekends);
} catch(std::exception &ex) {
forward_exception_to_r(ex);
} catch(...) {
::Rf_error("c++ exception (unknown reason)");
}
return R_NilValue;
}
