Rcpp map/dictionary/list

Question

Wie übertrage ich eine Karte/ein Verzeichnis/eine Liste von R als Parameter in eine C++ Funktion?

Zum Beispiel möchte ich so etwas wie die folgenden Funktionen ausführen:

#include <Rcpp.h> 
using namespace Rcpp; 

// [[Rcpp::export]] 
int test(List map) { 
    int val = map["test"]; 
    return(val); 
} 

/*** R 
map <- list(test = 200, hello = "a") 
test(map) 
*/ 

, wo die Ausgabe 200

Answer 1

Ich habe ein ähnliches Problem auf Mac OS X. Starten Sie Ihren Snippet zurückgeben 1. Allerdings, wenn ich den Code in folgender Weise modifizieren funktioniert es:

#include <Rcpp.h> 
using namespace Rcpp; 

// [[Rcpp::export]] 
int test(List map) { 
    int val = as<int>(map["test"]); 
    return(val); 
} 

/*** R 
map <- list(test = 200, hello = "a") 
test(map) 
*/ 

Es scheint wie etwas falsch mit dem Typinferenz gehen - der Compiler sollte „wissen“, dass, da wir map["test"] zu einer Zuordnung sind int -deklarierte Variable, die als int konvertiert werden sollte, aber das scheint nicht der Fall zu sein. Also, um sicher zu sein - seien Sie sicher, as alles, was aus einer R-Liste kommt.

Auch es ist erwähnenswert: in R 200 ist ein double; Wenn Sie eine int explizit übergeben möchten, sollten Sie 200L schreiben.

FWIW, ich bin Kompilieren mit clang++:

> clang++ -v 
Apple LLVM version 4.2 (clang-425.0.28) (based on LLVM 3.2svn) 
Target: x86_64-apple-darwin12.4.0 
Thread model: posix 

und

> sessionInfo() 
R version 3.0.0 (2013-04-03) 
Platform: x86_64-apple-darwin10.8.0 (64-bit) 

locale: 
[1] en_CA.UTF-8/en_CA.UTF-8/en_CA.UTF-8/C/en_CA.UTF-8/en_CA.UTF-8 

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] Rcpp_0.10.4 

Answer 2

sein sollte Darf ich nicht vollständig verstehen, was Sie wirklich wollen, aber wenn Sie möchten, passieren Funktion, um eine R-Liste als Parameter Cpp möglich, es ist

Cpp Code

#include <Rcpp.h> 

using namespace Rcpp; 

// [[Rcpp::export]] 
int test(List map) { 
    int number = 10;  
    int val = map["test"] + number; 
    return(val); 
} 

/*** R 
map <- list(test = 2, hello = "a") 
test(map) 
*/ 

Angenommen, Sie diesen Cpp Code auf "/tmp/test.cpp"

gespeichert immer scheint

R Code

require(Rcpp) 
sourceCpp("/tmp/test.cpp") 
test(map) 
## [1] 12