解决方法
一个data.frame是一个列表,所以沿着
#include <Rdefines.h> SEXP df_fun(SEXP df) { int i,len = Rf_length(df); SEXP result; PROTECT(result = NEW_CHARACTER(len)); for (i = 0; i < len; ++i) switch(TYPEOF(VECTOR_ELT(df,i))) { case INTSXP: SET_STRING_ELT(result,i,mkChar("integer")); break; case REALSXP: SET_STRING_ELT(result,mkChar("numeric")); break; default: SET_STRING_ELT(result,mkChar("other")); break; }; UNPROTECT(1); return result; }
然后在R CMD SHLIB df_fun.c之后
> dyn.load("df_fun.so") > df=data.frame(x=1:5,y=letters[1:5],z=pi,stringsAsFactors=FALSE) > .Call("df_fun",df) [1] "integer" "other" "numeric"
在Rdefines.h(或其等价功能,如getAttrib)中使用GET_CLASS,GET_ATTR和其他宏来发现有关数据帧的其他信息.请注意,data.frame具有与其结构不同的API.所以例如R函数row.names可以返回与存储在row.names属性中的值不同的东西.我认为大多数.Call函数对原子向量进行操作,保持对R级更复杂的对象的操纵.