File: rinside_sample8.cpp

package info (click to toggle)
r-cran-rinside 0.2.19-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 668 kB
  • sloc: cpp: 3,310; ansic: 117; xml: 57; ruby: 34; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 839 bytes parent folder | download | duplicates (5)
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
// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4;  tab-width: 8; -*-
//
// Simple example showing how to use R[] = ; 
//
// Copyright (C) 2010 Dirk Eddelbuettel and Romain Francois

#include <RInside.h>                    // for the embedded R via RInside

int main(int argc, char *argv[]) {

    RInside R(argc, argv);              // create an embedded R instance 
    
    R["x"] = 10 ;                       // assignment can be done directly via []
    R["y"] = 20 ;

    R.parseEvalQ("z <- x + y") ;        // R statement evaluation and result 
    int sum = R["z"];  			// retrieval via access using [] and implicit wrapper
    std::cout << "10 + 20 = " << sum << std::endl ; 

    // we can also return the value directly
    sum = R.parseEval("x + y") ;
    std::cout << "10 + 20 = " << sum << std::endl ; 

    exit(0);
}