これで、前回までのデータをロードしておけば差分だけをゲットしてくれるはず。 require (RFinanceYJ) # Yahooから株価を取得してくれるパッケージ require (gdata) #read.xlsを使うのに必要。 #first-d-j.xlsのダウンロードは以下の東証のサイトから #http://www.tse.or.jp/market/data/listed_companies/b7gje60000023aiz-att/first-d-j.xls stocklist.first.raw <- read.xls ("first-d-j.xls",header=T, as.is=T) stocklist.first <- stocklist.first.raw$コード #株価を取得。 #もし、以前にデータを取得していれば、そこからの差分を、 #そうでなければ一通り取得