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")