アールメカブ

Rの備忘録

mkChar(x) は mkCharCE(x, CE_NATIVE) に同じ。

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