Скачивание открытых позиций MOEX

Московская биржа ежедневно публикует информацию об открытых фьючерсных и опционных позициях.

Код скачивает ежедневные данные по всем инструментам (csv) с разбивкой по физ/юр лицам за период, склеивает и подготавливает для визуализации и анализа.

Код


urlOI<-"http://moex.com/ru/derivatives/open-positions-csv.aspx?d="

dateStart<-as.Date("2021-01-01", "%Y-%m-%d")
dateEnd<-as.Date("2021-05-18", "%Y-%m-%d")
OpIn.df<-read.csv(paste(urlOI,format(dateStart, "%Y%m%d"),"&t=1", sep=""), nrows=1)
i<-dateEnd
for(i in 0:(dateEnd-dateStart)){
  id<-format(dateStart+i, "%Y%m%d")
  iurl<-paste(urlOI,id,"&t=1", sep="")
  
  print(iurl)
  OpIn.i<-read.csv(iurl)
  OpIn.df<-rbind(OpIn.df, OpIn.i)
}