c - 如何将 R 字符 vector 转换为 C 字符指针？

Question

我正在尝试将字符 vector 从 R 传递到 C，并通过 C 字符指针引用它。但是，我不知道该使用哪种类型转换宏。下面是一个小测试来说明我的问题。

文件test.c:

#include <Rinternals.h>

SEXP test(SEXP chars)
{
   char *s;

   s = CHAR(chars);
   return R_NilValue;
}

文件测试.R:

dyn.load("test.so")

chars <- c("A", "B")

.Call("test", chars)

R 的输出:

> source("test.R")
Error in eval(expr, envir, enclos) : 
  CHAR() can only be applied to a 'CHARSXP', not a 'character'

有什么线索吗？

Answer 1

字符 vector 是 STRSXP。每个单独的元素都是 CHARSXP，因此您需要类似(未测试)的东西:

const char *s;
s = CHAR(STRING_ELT(chars, 0));

参见 Handling Character Data section of Writing R Extensions . Dirk 很快就会告诉您，如果您只使用 C++ 和 Rcpp，这一切将如何变得更容易。 :)