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
31
32
33
34
35
|
#include "embeddedRCall.h"
static void doSplinesExample();
extern int Rf_initEmbeddedR(int argc, char *argv[]);
extern void Rf_endEmbeddedR(int fatal);
int
main(int argc, char *argv[])
{
Rf_initEmbeddedR(argc, argv);
doSplinesExample();
Rf_endEmbeddedR(0);
return(0);
}
static void
doSplinesExample()
{
SEXP e;
int errorOccurred;
PROTECT(e = lang2(install("library"), mkString("splines")));
R_tryEval(e, R_GlobalEnv, NULL);
UNPROTECT(1);
PROTECT(e = lang2(install("options"), ScalarLogical(0)));
SET_TAG(CDR(e), install("example.ask"));
PrintValue(e);
R_tryEval(e, R_GlobalEnv, NULL);
UNPROTECT(1);
PROTECT(e = lang2(install("example"), mkString("ns")));
R_tryEval(e, R_GlobalEnv, &errorOccurred);
UNPROTECT(1);
}
|
