//¤³¤Î¥Ú¡¼¥¸¤¬É½¼¨¤µ¤ì¤ëÊý¤Ï¡¢URL¤«¤é¡Öaction=SOURCE&¡×¤òºï½ü¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤ [[£ÒÈ÷˺Ͽ - µ­»ö°ìÍ÷]] !!!¥½¥±¥Ã¥È¤ò»È¤Ã¤ÆÊ̤ÎR¥»¥Ã¥·¥ç¥ó¤Ë¥Ç¡¼¥¿¤òÅϤ¹ *Åê¹Æ¼Ô¡§ ¤ß¤å *¥«¥Æ¥´¥ê¡§ ¤Ê¤· *Í¥ÀèÅÙ¡§ ÉáÄÌ *¾õÂÖ¡§ ´°Î» *Æü»þ¡§ 2008ǯ08·î14Æü 16»þ38ʬ43Éà //{{bugstate}} !!ÆâÍÆ ¥Õ¥¡¥¤¥ë¤Ê¤É¤ò»È¤ï¤º¤Ë¡¢RƱ»Î¤Ç¥Ç¡¼¥¿¤Î¼õ¤±ÅϤ·¤ò¤¹¤ë !!³µÍ× *­¡R process 1 con1 <- socketConnection(port = 6011, server=TRUE) writeLines(LETTERS, con1) close(con1) *­¢R process 2 con2 <- socketConnection(Sys.info()["nodename"], port = 6011) # as non-blocking, may need to loop for input readLines(con2) while(isIncomplete(con2)) {Sys.sleep(1); readLines(con2)} close(con2) *­¡¤«¤é´Ø¿ô¡Ödump¡×¤ò»È¤Ã¤Æ¥Æ¥­¥¹¥È¤Ç¥Ç¡¼¥¿ÄêµÁ¤òÁ÷¿®¤¹¤ë dump("co2", con1) dump("EuStockMarkets", con1) *­¢¤Ç¥Ç¡¼¥¿ÄêµÁ¤ò¼õ¿®¤¹¤ë eval(parse(text=paste(readLines(con2), collapse = ""))) !!¥³¥á¥ó¥È //{{comment}}