R使用带有.C接口的函数Realoc

Question

我正在使用 .C 接口测试从 R 对 C 函数的调用。测试包括将一个数字向量传递给没有条目的 C 函数，动态分配 n 个位置，进行归因并将向量返回给 R。

我正在使用 R.h. 的 Calloc。该函数的原型是

type* Calloc(size_t n, type)

如编写 R 扩展中所述。

问题是我没有得到带有 R 中分配位置的新向量。向量仍然没有条目。

R中的代码

fooR <- function(x) {
  if (!is.numeric(x))
    stop("argument x must be numeric")
  out <- .C("foo",
            x=as.double(x))
  return(out$x)
}

x <- numeric()

result <- fooR(x)

C语言中的函数

#include <R.h>

void foo(double *x)
{
  int i, n;

  n = 4;
  x = Calloc(n, double);

  for (i = 0; i < n; i++) {
    x[i] = i;
    printf("%f\n", x[i]); //just to check
  }
}

问题是：.C 接口可以处理这样的内存分配吗？

Answer 1

是的，您可以通过这种方式使用内存管理，但前提是您使用.Call() 接口而不是.C() 接口。

请参阅 Memory Allocation 和 Interface Functions 的“编写 R 扩展”手册。

还有其他书籍和一些例子。我更喜欢 C++ 而不是 C，并且使用 Rcpp 我们可以隐藏所有机制：

 R> cppFunction('IntegerVector makeVec(int n) { return IntegerVector(n); }')
 R> makeVec(2)
 [1] 0 0
 R> makeVec(4)
 [1] 0 0 0 0
 R> 

这在后台同时使用了.Call() 和 R 的内存分配，这是一个快速的小证明，证明“是的，你可以”实际上动态地创建了一个向量。

Answer 2

我不会 R 语言，但我会 C。

当您将指向 x 的指针作为函数 foo 中的参数时，您可以更改 foo 内的 x 的内容，但不能更改 x 本身。

如果要更改x 的地址，则必须采用“指向x 的指针”，即**x。

在您的foo 实现中，编译器实际上将*x 的值（即内存地址）复制到x（编译器按值传递该地址）。因此，如果您更改函数内部的地址，那么它在外部保持不变。

对不起，如果我没有解释清楚。

无论如何，在纯 C 中，代码应该是这样的：

void foo(double **x)
{
  int i, n;

  n = 4;
  *x = (double*) calloc(n, sizeof(double));

  for (i = 0; i < n; i++) {
    (*x)[i] = i;
    printf("%f\n", (*x)[i]); //just to check
  }
}

这里是工作的 sn-p：https://ideone.com/mRsdUH