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

BugTrack-£ÒÈ÷˺Ͽ/13

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

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

¥½¥±¥Ã¥È¤ò»È¤Ã¤ÆÊ̤Î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 = "")))

¥³¥á¥ó¥È