rvestでリアルタイムな為替レートを取得したい

R

USD/JPYレート、こんなんで取得OKでござんした。html関数以下を再実行すれば直近のレートに置き換わる。

#パッケージ読み込み＆html取得
library(rvest)
html <- html("http://info.finance.yahoo.co.jp/fx/detail/?code=USDJPY=FX")
#BID, ASK取得
bid <- html %>% html_node('#USDJPY_detail_bid') %>% html_text() %>% as.numeric()
ask <- html %>% html_node('#USDJPY_detail_ask') %>% html_text() %>% as.numeric()
#出力
print(c(BID=bid, ASK=ask))

このrvestライブラリの使い方は、もっと勉強する必要がある。

参考