Скачивание открытых позиций MOEX
R
Московская биржа ежедневно публикует информацию об открытых фьючерсных и опционных позициях.
Код скачивает ежедневные данные по всем инструментам (csv) с разбивкой по физ/юр лицам за период, склеивает и подготавливает для визуализации и анализа.
Код
<-"http://moex.com/ru/derivatives/open-positions-csv.aspx?d="
urlOI
<-as.Date("2021-01-01", "%Y-%m-%d")
dateStart<-as.Date("2021-05-18", "%Y-%m-%d")
dateEnd<-read.csv(paste(urlOI,format(dateStart, "%Y%m%d"),"&t=1", sep=""), nrows=1)
OpIn.df<-dateEnd
ifor(i in 0:(dateEnd-dateStart)){
<-format(dateStart+i, "%Y%m%d")
id<-paste(urlOI,id,"&t=1", sep="")
iurl
print(iurl)
<-read.csv(iurl)
OpIn.i<-rbind(OpIn.df, OpIn.i)
OpIn.df }