在编译要在包中使用的C++代码时,如何将标志传递给R？

#include <R.h>
#include <Rinternals.h>

SEXP my_function(SEXP flag) {
    // 保护R对象
    SEXP flag_protected = Rf_protect(flag);

    // 创建R字符串
    SEXP flag_string = Rf_mkString(CHAR(STRING_ELT(flag_protected, 0)));

    // 解析R字符串为R表达式
    SEXP flag_expression = Rf_eval(flag_string, R_GlobalEnv);

    // 取消保护R对象
    Rf_unprotect(1);

    // 返回R表达式
    return flag_expression;
}