Rcpp map/dictionary/list

Question

Come si passa in una mappa/dizionario/elenco da R come parametro a una funzione C++?

Per esempio, voglio fare qualcosa di simile al seguente:

#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) 
*/ 

in cui l'uscita dovrebbe essere 200.

Answer 1

Ho un problema simile su Mac OS X. Il funzionamento del vostro frammento sembra sempre restituire 1. Tuttavia, se modifico il codice nel seguente modo in cui funziona:

#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) 
*/ 

Sembra che qualcosa sta andando male con l'inferenza di tipo - il compilatore dovrebbe "sapere" che, dal momento che stiamo assegnando a un map["test"]int - variabile dichiarata che deve essere convertita come int, ma questo non sembra essere il caso. Quindi, per sicurezza - assicurati di as tutto ciò che esce da un elenco R.

Inoltre, vale la pena affermare: in R 200 è un double; se si desidera passare esplicitamente uno , è necessario scrivere 200L.

FWIW, sto compilazione con 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 

e

> 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

Può essere che non capisco pienamente ciò che si vuole veramente, ma se si desidera superare un elenco R come parametro Cpp funzionare è possibile

codice Cpp

#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) 
*/ 

Supponiamo che si è salvato questo codice Cpp a "/tmp/test.cpp"

codice R

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