rvestで単元株数を取得したい

R

やほぉの単元株数、こんなんで取得OKでござんした。

を見て、適当にcodeを変えれば他社でも動く（はず）。

以下のコードを実行すると"100"となるので、単元株数は100だなとわかる。

library(rvest)
library(stringr)
html <- html("http://m.finance.yahoo.co.jp/stock/additionaldata?code=4689.T")
node <- html %>% html_node("#additionaldata") %>% html_text
unit_stock <- str_match(node, "単元株数.*株\\n") %>% c
str_match(unit_stock, "\\d+") %>% as.numeric

参考