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ライブラリの使い方は、もっと勉強する必要がある。