£ÒÈ÷˺Ͽ - µ»ö°ìÍ÷
- Åê¹Æ¼Ô¡§ ¤ß¤å
- ¥«¥Æ¥´¥ê¡§ ¤Ê¤·
- Í¥ÀèÅÙ¡§ ÉáÄÌ
- ¾õÂÖ¡§ ´°Î»
- Æü»þ¡§ 2009ǯ06·î09Æü 10»þ02ʬ21ÉÃ
- C¸À¸ì¤ÎAPI tips¤¡ÊÉÕÃÍ¡Ë
defineVar(install("string1"), str1, rho);
defineVar(install("string2"), str2, rho);
defineVar(install("case"), cs, rho);
- °ú¿ô¤¬°ì¸Ä¤Î¾ì¹ç¡¢eval´Ø¿ô
PROTECT(call2 = lang2(install("eval"), call));
SEXP eval_fun02(SEXP a, SEXP rho)
{
SEXP call;
SEXP ret;
PROTECT(call = lang2(install("print"), a));
eval(call, rho);
UNPROTECT(1);
return R_NilValue;
}
#define lang1 Rf_lang1
#define lang2 Rf_lang2
#define lang3 Rf_lang3
#define lang4 Rf_lang4
£ÒÈ÷˺Ͽ /¾õÂÖ¶õ´Ö¥â¥Ç¥ê¥ó¥°/donlp2/¤½¤Î¾¤Î¥á¥â