如何为返回int *的C函数生成R封装器？

Question

我想生成下面的C函数R（编程语言）包装：

int *test(void) 
{ 
    int i; 

    i = 1024; 

    return (int *) i; 
} 

为了创建这个包装，我使用痛饮具有以下接口：

%module X 
%{ 
    extern int *test(void); 
%} 
extern int *test(void); 

我可以成功创建并编译这个包装器。然而，当我运行下列R-代码（包装被预先加载）：

print(test()) 

它会给以下错误：

Error in getClass(Class, where = topenv(parent.frame())) : 
    “_p_int” is not a defined class 
Calls: print -> test -> new -> getClass 

我的问题是：我怎么可以包装的C test函数（更确切地说是由此函数返回的int *）？

Answer 1

SWIG在R周围并没有被广泛使用，但inline包可以帮助您。

R> library(inline) 
R> foo <- cfunction(signature(i="int"), body="*i = 1024;", 
+     language="C", convention=".C") 
R> foo(12)$i 
[1] 1024 
R> 

这就是说，你可能想.Call()代替.C()，你或许应该看看Rcpp即使你想使用普通的C - 模具是相当丰富的，有益的。