9 int main(
int argc,
char *argv[]) {
17 double d1 = Rcpp::as< double >(R.
parseEval(txt));
18 std::cout <<
"d1 " << d1 << std::endl;
20 txt =
"M <- 1.0 * 1:6";
21 std::vector<double> d2 = Rcpp::as< std::vector< double > >(R.
parseEval(txt));
22 std::cout <<
"d2[0] " << d2[0] <<
" d2[1] " << d2[1] << std::endl;
24 }
catch(std::exception& ex) {
25 std::cerr <<
"Exception caught: " << ex.what() << std::endl;
27 std::cerr <<
"Unknown exception caught" << std::endl;
int main(int argc, char *argv[])
int parseEval(const std::string &line, SEXP &ans)