發送數組R函數（C++）

Question

我已用C++編寫這樣的功能：

extern "C" 
{ 

    void add(int* first, int* second, int *n , int* sum) 
    { 
     for (int i = 0; i< *n; i++) 
     { 
      sum[i] = first[i] + second[i]; 
     } 


    } 
} 

和該驅動程序：

add <- function(twoColumn) 
{ 
    if(!is.data.frame(twoColumn))stop("twoColumn should be data.frame") 

    first <- twoColumn[1] 
    second <- twoColumn[2] 
    n <- length(first) 
    .C("add",first = as.integer(unlist(first)),second = as.integer(unlist(second)), n = as.integer(n),sum = as.integer(rep(0,n)))$sum 


} 

但R OUT放是隻爲一個數數據幀的第一行之和。

Answer 1

我不知道問題是什麼，但可以提供一個（有點過分雄心勃勃的）工作版本的代碼。它要求你打包功能，其作用如下：

src/add.cpp：

SEXP add(SEXP Rx, SEXP Ry){ 
    SEXP xy_sum; 
    int i; 
    PROTECT(xy_sum = allocVector(REALSXP, 1)); 
    for(i = 0; i < length(Rx); i++){ 
     REAL(xy_sum)[i] = REAL(Rx)[i] + REAL(Ry)[i]; 
    } 
    UNPROTECT(1); 
    return xy_sum; 
} 

scr/add.h：

#ifndef _add_ADD_H 
#define _add_ADD_H 

#include <R.h> 
#include <Rdefines.h> 

extern "C" SEXP add(SEXP Rx, SEXP Ry); 

#endif 

R/add.R：

add <- function(x, y){ 
    if(length(x) != length(y)) stop("Vectors must be of the same length.") 
    # coerce into numeric in case the user supplied something silly 
    .Call("add", PACKAGE="add", as.numeric(x), as.numeric(y)) 
} 

R/zzz.R：

.onLoad <- function(lib, pkg){ 
    library.dynam("add", pkg, lib) 
}