RFinanceYJがうまく動作しなくなった疑惑
library(XML)
library(RFinanceYJ)
# エーザイのコードは4523
eisai <- quoteStockXtsData("4523.t")
## Error: 引数 1 がベクトルではありません
# RFinanceRJパッケージのquoteTsData関数中でパースしているurl
quote.url1 <- "http://table.yahoo.co.jp/t?s=4532.t"
r <- xmlRoot(htmlTreeParse(quote.url1, error = xmlErrorCumulator(immediate = F)))
quote.table <- r[[2]][[1]][[1]][[16]][[1]][[1]][[1]][[4]][[1]][[1]][[1]]
## Error: 添え字が許される範囲外です
# ↑ここでエラってる
# 例外処理で書かれているので、実際にquoteStockXtsData関数を使うと
# financial.data[order(financial.data$date),]のとこでソートできないよって怒られる
# urlは変更になってるっぽい
quote.url2 <- "http://info.finance.yahoo.co.jp/history/?code=4543.T"
r <- readHTMLTable(quote.url2)
financial.data <- r[[which(!unlist(lapply(r, is.null)))]]
print(financial.data)
## 日付 始値 高値 安値 終値 出来高 調整後終値*
## 1 2013年6月6日 4,665 4,785 4,550 4,655 1,440,300 4,655
## 2 2013年6月5日 4,715 4,890 4,595 4,605 1,443,900 4,605
## 3 2013年6月4日 4,640 4,770 4,620 4,710 1,433,200 4,710
## 4 2013年6月3日 5,010 5,020 4,635 4,670 1,849,500 4,670
## 5 2013年5月31日 4,995 5,140 4,945 5,090 1,025,300 5,090
## 6 2013年5月30日 5,020 5,210 4,925 4,935 1,498,800 4,935
## 7 2013年5月29日 5,290 5,300 5,150 5,220 1,236,600 5,220
## 8 2013年5月28日 5,030 5,230 5,010 5,190 1,130,600 5,190
## 9 2013年5月27日 5,110 5,250 5,050 5,130 1,069,200 5,130
## 10 2013年5月24日 5,310 5,430 5,000 5,310 2,091,400 5,310
## 11 2013年5月23日 5,570 5,830 5,230 5,250 2,403,800 5,250
## 12 2013年5月22日 5,350 5,590 5,340 5,540 1,441,000 5,540
## 13 2013年5月21日 5,250 5,390 5,250 5,320 637,400 5,320
## 14 2013年5月20日 5,210 5,330 5,210 5,290 606,100 5,290
## 15 2013年5月17日 5,220 5,280 5,170 5,270 808,700 5,270
## 16 2013年5月16日 5,350 5,370 5,190 5,230 985,100 5,230
## 17 2013年5月15日 5,410 5,420 5,290 5,330 887,100 5,330
## 18 2013年5月14日 5,390 5,400 5,340 5,360 492,800 5,360
## 19 2013年5月13日 5,360 5,400 5,340 5,360 740,900 5,360
## 20 2013年5月10日 5,320 5,440 5,230 5,320 1,833,200 5,320
## 21 2013年5月9日 5,150 5,200 5,010 5,020 922,500 5,020
## 22 2013年5月8日 5,000 5,220 4,995 5,150 1,403,800 5,150
## 23 2013年5月7日 4,955 4,985 4,870 4,980 1,026,000 4,980
## 24 2013年5月2日 4,900 4,980 4,850 4,885 840,800 4,885
## 25 2013年5月1日 4,850 4,950 4,830 4,915 868,300 4,915
## 26 2013年4月30日 4,800 4,870 4,745 4,840 1,108,000 4,840
## 27 2013年4月26日 4,750 4,805 4,715 4,775 973,000 4,775
## 28 2013年4月25日 4,685 4,745 4,640 4,720 941,800 4,720
## 29 2013年4月24日 4,695 4,715 4,645 4,670 919,700 4,670
## 30 2013年4月23日 4,630 4,645 4,605 4,625 916,000 4,625
## 31 2013年4月22日 4,585 4,650 4,535 4,610 1,340,700 4,610
## 32 2013年4月19日 4,410 4,465 4,395 4,455 1,033,600 4,455
## 33 2013年4月18日 4,235 4,420 4,180 4,385 1,714,800 4,385
## 34 2013年4月17日 4,215 4,350 4,215 4,305 1,627,100 4,305
## 35 2013年4月16日 4,125 4,190 4,100 4,145 1,678,400 4,145
## 36 2013年4月15日 4,200 4,225 4,185 4,195 1,757,300 4,195
## 37 2013年4月12日 4,255 4,275 4,160 4,230 3,263,400 4,230
## 38 2013年4月11日 4,280 4,290 4,185 4,230 2,473,800 4,230
## 39 2013年4月10日 4,100 4,175 4,100 4,150 1,871,400 4,150
## 40 2013年4月9日 4,100 4,175 4,090 4,130 1,402,800 4,130
## 41 2013年4月8日 4,120 4,145 4,050 4,115 1,008,200 4,115
## 42 2013年4月5日 4,120 4,145 4,005 4,015 1,560,900 4,015
## 43 2013年4月4日 3,870 4,085 3,850 4,085 1,002,900 4,085
## 44 2013年4月3日 3,945 3,950 3,880 3,940 764,200 3,940
## 45 2013年4月2日 4,020 4,025 3,885 3,890 829,400 3,890
## 46 2013年4月1日 4,045 4,080 3,995 4,025 1,103,800 4,025
## 47 2013年3月29日 4,060 4,090 4,035 4,050 481,900 4,050
## 48 2013年3月28日 4,055 4,075 4,010 4,025 1,051,400 4,025
## 49 2013年3月27日 4,060 4,095 4,020 4,090 447,000 4,090
## 50 2013年3月26日 4,025 4,085 4,025 4,050 528,300 4,050