从 R 到 C 处理列表并访问它

我想使用从 R 获得的 C 列表。我意识到这个问题与此非常相似：使用 .call() 在 R 和 C 之间传递数据帧 https://stackoverflow.com/questions/6658168/passing-a-data-frame-from-to-r-and-c-using-call。 但是，我无法将其存储在指针“*target”中，我将在其中进一步使用它。

R:

.Call("processlist", list(c(1,2), c(1,3,2), c(1,5,4,4)))

在C中：

#include <Rinternals.h>
#include <Rdefines.h>

extern "C" {
     SEXP processlist(SEXP lst);
}

SEXP processlist(SEXP lst){
   SEXP vec  = PROTECT(allocVector(VECSXP, 2));
   SET_VECTOR_ELT(vec, 0, VECTOR_ELT(c, 0);
   SET_VECTOR_ELT(vec, 1, VECTOR_ELT(c, 1);
   SET_VECTOR_ELT(vec, 2, VECTOR_ELT(c, 2);

   const lngth = 3;
   int *target[lnght];

   // Here i want to fill "target", but how?
   int *preTarget = INTEGER(vec);

   // Bad attempts
   target[0] = INTEGER(preTarget[0]);
   target[0] = INTEGER(vec[0]);
}

注意：不幸的是，C++ 不是一个选项。

编辑：所需的输出是我可以通过以下方式调用 *target 。

target[0][0] --> Returns: 1
target[1][2] --> Returns: 2
target[2][3] --> Returns: 4

以这种方式调用“vec”此时会引发错误。

在我看来，您只想从 C 端访问列表中的值。如果这是正确的，请查看下面的代码。

In d.c:

/* Including some headers to show the results*/
#include <Rinternals.h>
#include <Rdefines.h>
#include <R.h>
#include <stdlib.h>
#include <stdio.h>
SEXP processlist(SEXP lst){
   int i,l = length(lst);
   /* You need an array of arrays, so target will be an int** */ 
   int **target = malloc(sizeof(int *)*l);
   for (i=0;i<l;i++) {
     target[i] = INTEGER(VECTOR_ELT(lst,i));
   }
   printf("target[0][0]: %d\n",target[0][0]);
   printf("target[1][2]: %d\n",target[1][2]);
   printf("target[2][3]: %d\n",target[2][3]);
   free(target);
   return R_NilValue;
}

需要注意的重要一点是target必须是一个int**，因为它是一个指向指针数组的指针。

In d.R (after d.c已编译）：

dyn.load("d.so")
mylist<-list(c(1,2), c(1,3,2), c(1,5,4,4))
#This is very important: by default 1 in R is double. 
#You need to coerce every element of the list to integer.
mylist<-lapply(mylist,as.integer)
.Call("processlist", mylist)

请注意，我们需要将列表中的每个元素强制为整数。上面的结果是：

target[0][0]: 1
target[1][2]: 2
target[2][3]: 4