¥È¥Ã¥× º¹Ê¬ °ìÍ÷ ¥½¡¼¥¹ ¸¡º÷ ¥Ø¥ë¥× RSS ¥í¥°¥¤¥ó

BugTrack-£ÒÈ÷˺Ͽ/34

£ÒÈ÷˺Ͽ /¾õÂÖ¶õ´Ö¥â¥Ç¥ê¥ó¥°/donlp2/¤½¤Î¾¤Î¥á¥â

£ÒÈ÷˺Ͽ - µ­»ö°ìÍ÷

C¸À¸ì¤ÎAPI tips­¤¡ÊÉÕÃÍ¡Ë

  • Åê¹Æ¼Ô¡§ ¤ß¤å
  • ¥«¥Æ¥´¥ê¡§ ¤Ê¤·
  • Í¥ÀèÅÙ¡§ ÉáÄÌ
  • ¾õÂÖ¡§ ´°Î»
  • Æü»þ¡§ 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));
  • print´Ø¿ô
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

¥³¥á¥ó¥È