Rcpp mapa/słownik/lista

Question

Jak przekazać mapę/słownik/listę z R jako parametr do funkcji C++?

Na przykład, chcę zrobić coś jak następuje:

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

gdzie wyjście powinno być 200.

Answer 1

mam podobny problem w systemie Mac OS X. wyświetlanie fragment wydaje się zawsze return 1. Jednakże, jeśli zmodyfikować kod w następujący sposób to działa:

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

Wydaje się, że coś jest nie tak z typem wnioskowania - kompilator powinien „wiedzieć”, że skoro jesteśmy przypisanie map["test"] do int -odkreślona zmienna, która powinna zostać przekształcona jako int, ale wydaje się, że tak nie jest. Tak więc, aby być bezpiecznym - upewnij się, że wszystko, co wychodzi z listy R.

Warto również zaznaczyć: w R 200 jest to double; Jeśli chcesz jawnie przekazać numer int, powinieneś napisać: 200L.

FWIW, jestem kompilacji z 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 

i

> 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

Może być nie w pełni zrozumieć, co naprawdę chcesz, ale jeśli chcesz przekazać listy R jako parametr dla CPP działać to możliwe

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

Załóżmy, że został zapisany ten kod KPP w "/tmp/test.cpp"

kodu R

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