ãã‚ãã‚Rã®æœ¬å½“ã®åŠ›ã‚’見ã›ã¦ãŠãã‹ - yasuhisa's blog「Rã£ã¦Twitterã§éŠã¶ãŸã‚ã®ã‚‚ã®ãªã®ã‹ã€ã¨ã‹æ€ã‚れるã¨ã‚ã‚Œãªã®ã§ã€ã¡ã‚‡ã„ã¾ã˜ã‚ãƒã‚¿ã§è¡Œãã“ã¨ã«ã—ã¾ã™ã€‚ã€Œæ ªä¾¡ãƒ‡ãƒ¼ã‚¿ã®åŽé›†ã€åŸºæœ¬çš„ãªãƒ‡ãƒ¼ã‚¿ã®è§£æžã€æ ªä¾¡ã®äºˆæƒ³ãƒ¢ãƒ‡ãƒ«ã®ä½œæˆã¾ã§å…¨éƒ¨Rã§ã§ãã¡ã‚ƒã†ã‚ˆã€ç·¨ã§ã™*1。 ã¨ã‚Šã‚ãˆãšã€æ ªä¾¡ãƒ‡ãƒ¼ã‚¿ã®åŽé›†ã‚’ã—ã¦ãる関数ã‹ã‚‰ã€‚infoseekã®ãƒ•ã‚¡ã‚¤ãƒŠãƒ³ã‚¹ã®ã¨ã“ã‚ã‹ã‚‰å–ã£ã¦ãã¦ã¾ã™ã€‚ finance <- function(site){ ruby <- paste(" #!/usr/bin/ruby -Ke # -*- coding: utf-8 -*- require %q[rubygems] require %q[mechanize] require %q[kconv] finance = \"",site,"\" agent = WWW::Mechanize.new agent.max_history = 1 page = agent.get(fin
{{#tags}}- {{label}}
{{/tags}}