[[Rの備忘録]]
strTest.c
#include <R.h>
#include <Rdefines.h>
SEXP makeStr() {
SEXP str;
PROTECT(str=allocVector(STRSXP,5));
SET_STRING_ELT(str, 0, mkChar("A"));
SET_STRING_ELT(str, 1, mkChar("B"));
SET_STRING_ELT(str, 2, mkChar("C"));
SET_STRING_ELT(str, 3, mkChar("D"));
SET_STRING_ELT(str, 4, mkChar("E"));
UNPROTECT(1);
return str;
}
# R CMD SHLIB strTest.c
> dyn.load("strTest.so")
> .Call("makeStr")
#comment