1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8; -*-
//
// Simple test that did not trigger the bug reported by Miguel Lechón
//
// Copyright (C) 2009 - 2014 Dirk Eddelbuettel and GPL'ed
#include <RInside.h> // for the embedded R via RInside
int main(int argc, char *argv[]) {
RInside R(argc, argv); // create an embedded R instance
std::string txt = "Hello, world!\n";// assign a standard C++ string to 'txt'
R["txt"] = txt; // assign string var to R variable 'txt'
std::string evalstr = "cat(txt)";
for (int i=0; i<1e1; i++) {
R.parseEvalQ(evalstr); // eval the init string, ignoring any returns
}
evalstr = "txt <- \"foo\\n\"";
for (int i=0; i<1e1; i++) {
R.parseEvalQ(evalstr); // eval the init string, ignoring any returns
}
evalstr = "cat(txt)";
for (int i=0; i<1e1; i++) {
R.parseEvalQ(evalstr); // eval the init string, ignoring any returns
}
exit(0);
}
|
