.CallからC共有ライブラリへの構造体の配列を返す方法

Question

.Callの配列をC共有ライブラリの関数に戻し、その配列をRで使用するにはどうすればよいですか？例えば

：

typedef struct{ 
    int thing1; 
    int thing2; 
    float thing3; 
    float thing4; 
    char thing5; 
    //... many more things of various simple types 
} MY_STRUCT; 

SEXP R_Calls_Me(SEXP args) { 

    // Do stuff with args... 

    // Create arrayOfMyStructs as what type?? 

    return arrayOfMyStructs; 
} 

どのようなタイプは、Rは、それを使用することができarrayOfMyStructsなのですか？

これは一般的なことですが、R拡張を記述するためのドキュメントではこれの例は見つかりません。

Answer 1

通常は、返すコンポーネントでリスト（ジェネリックベクター）を作成します。あなたのケースでは

SEXP res = PROTECT(allocVector(VECSXP, 5)); 
SET_VECTOR_ELT(res, 0, ScalarInteger(a.thing1)); 
SET_VECTOR_ELT(res, 1, ScalarInteger(a.thing2)); 
SET_VECTOR_ELT(res, 2, ScalarReal(a.thing3)); 
... 
UNPROTECT(1) 
return res; 

のようなものは、例えば、また、ベクターに名前を割り当てることが通例である。：

const char *names[5] = { "thing1", "thing2", "thing3", "thing4", "thing5" }; 
SEXP sNames = PROTECT(allocVector(STRSXP, 5)); 
for (int i = 0; i < 5; i++) SET_STRING_ELT(res, i, mkString(names[i])); 
setAttrib(res, R_NamesSymbol, sNames); 
UNPROTECT(1); 

注意何を記述していることない配列が、構造であること。通常、配列はベクトルとして渡す方がはるかに簡単です。

Answer 2

これを行う最も自然な方法は、おそらく外部ポインタを使用することです。 Rへのポインタを返すと、アプリケーションコードがそれを操作します。これを行う多数のパッケージ（例えば、XML、h5r）。

SEXP _h5R_make_ptr() { 
    h5_holder* holder = (h5_holder*) Calloc(1, h5_holder); 
    holder->id = 1; 
    holder->is_file = 0; 
    SEXP e_ptr = R_MakeExternalPtr(holder, R_NilValue, R_NilValue); 
    PROTECT(e_ptr); 
    R_RegisterCFinalizerEx(e_ptr, h5R_finalizer, TRUE); 
    UNPROTECT(1); 
    return e_ptr; 
}