//¤³¤Î¥Ú¡¼¥¸¤¬É½¼¨¤µ¤ì¤ëÊý¤Ï¡¢URL¤«¤é¡Öaction=SOURCE&¡×¤òºï½ü¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤
[[£ÒÈ÷˺Ͽ - µ­»ö°ìÍ÷]]

!!!C¸À¸ì¤ÎAPI tips­¤¡ÊÉÕÃÍ¡Ë
*Åê¹Æ¼Ô¡§ ¤ß¤å
*¥«¥Æ¥´¥ê¡§ ¤Ê¤·
*Í¥ÀèÅÙ¡§ ÉáÄÌ
*¾õÂÖ¡§ ´°Î»
*Æü»þ¡§ 2009ǯ06·î09Æü 10»þ02ʬ21ÉÃ
//{{bugstate}}
!!ÆâÍÆ
*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

!!¥³¥á¥ó¥È
//{{comment}}