BugTrack-£ÒÈ÷˺Ͽ/13
¥½¥±¥Ã¥È¤ò»È¤Ã¤ÆÊ̤ÎR¥»¥Ã¥·¥ç¥ó¤Ë¥Ç¡¼¥¿¤òÅϤ¹
- Åê¹Æ¼Ô¡§ ¤ß¤å
- ¥«¥Æ¥´¥ê¡§ ¤Ê¤·
- Í¥ÀèÅÙ¡§ ÉáÄÌ
- ¾õÂÖ¡§ ´°Î»
- Æü»þ¡§ 2008ǯ08·î14Æü 16»þ38ʬ43ÉÃ
ÆâÍÆ
¥Õ¥¡¥¤¥ë¤Ê¤É¤ò»È¤ï¤º¤Ë¡¢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 = "")))
£ÒÈ÷˺Ͽ /¾õÂÖ¶õ´Ö¥â¥Ç¥ê¥ó¥°/donlp2/¤½¤Î¾¤Î¥á¥â