如何將多個對象從Rcpp返回給R？

Question

這可能是一個非常基本的要求，但我有R A RCPP函數計算，我想回傳給R.各種矩陣我的代碼如下所示：

zeromatrix <- matrix(0,6,1) 
east <- matrix(seq(1:48),6,8) 
west <- matrix(seq(1:48),6,8) 
func <- 'NumericMatrix eastC(NumericMatrix e, NumericMatrix w, NumericMatrix zeromatrix) { 
int ecoln=e.ncol(); 
int ecolnlessone = ecoln - 1; 
NumericMatrix eout(e.nrow(),e.ncol()) ; 
for (int j = 0;j < ecoln;j++) { 
if (j > 0) { 
eout(_,j) = e(_,j-1); 
} else { 
eout(_,j) = e(_,0); 
} 
} 
eout(_,0) = zeromatrix(_,0); 
return eout; 

NumericMatrix wout(w.nrow(),w.ncol()) ; 
for (int j = 0;j < ecoln;j++) { 
if (j < ecolnlessone) { 
wout(_,j) = w(_,j+1); 
} else { 
wout(_,j) = w(_,j); 
} 
} 
wout(_,ecolnlessone) = zeromatrix(_,0); 
return wout; 
}' 
cppFunction(func) 

d <- eastC(east, west, zeromatrix) 

兩個我都想要「EOUT」和'wout'被傳回給R，但顯然只有最後返回的值被傳回（即wout）。所以d變成wout。我如何提取多個對象（即在此情況下爲eout和wout）？我在Dirk的介紹中看到了Rcpp，它有一些關於list（ret）的內容，但是當我嘗試這個時，我的代碼不能編譯。任何幫助將非常感激？

Answer 1

如何消除雙方return語句，並添加：

List ret; 
ret["eout"] = eout; 
ret["wout"] = wout; 
return ret;` 

和變化的eastC返回類型List。

所以，結果應該是這樣的：

zeromatrix <- matrix(0,6,1) 
east <- matrix(seq(1:48),6,8) 
west <- matrix(seq(1:48),6,8) 
func <- 'List eastC(NumericMatrix e, NumericMatrix w, NumericMatrix zeromatrix) { 
int ecoln=e.ncol(); 
int ecolnlessone = ecoln - 1; 
NumericMatrix eout(e.nrow(),e.ncol()) ; 
for (int j = 0;j < ecoln;j++) { 
if (j > 0) { 
eout(_,j) = e(_,j-1); 
} else { 
eout(_,j) = e(_,0); 
} 
} 
eout(_,0) = zeromatrix(_,0); 

NumericMatrix wout(w.nrow(),w.ncol()) ; 
for (int j = 0;j < ecoln;j++) { 
if (j < ecolnlessone) { 
wout(_,j) = w(_,j+1); 
} else { 
wout(_,j) = w(_,j); 
} 
} 
wout(_,ecolnlessone) = zeromatrix(_,0); 
List ret; 
ret["eout"] = eout; 
ret["wout"] = wout; 
return ret; 
}' 
cppFunction(func) 

d <- eastC(east, west, zeromatrix)