用R通过wind提取指数成分股信息

我是R新手。麻烦大家帮忙看看我代码错在哪里了？

//先定义一个指数代码向量（本来有90只我只是简化为3只）

Indexlist<-list("H30597.CSI", "399276.SZ" , "399293.SZ")


//下面这个针对单个指数的代码是正确的，直接从wind代码生成器上生成的。比如提取指数399293.SZ在2月7日的成分信息：所在行业、代码、行业名称、、成分个数、权重

w_wset_data<-w.wset('constituentsindustrydist','windcode=399293.SZ;enddate=2023-02-07;industry=citicindustrygroups;field=code,name,count,weight')
print(w_wset_data)


现在问题是如何写循环提取全部指数的信息？

我这个循环代码肯定是错的，请问如何修复？

for (i in Indexlist){

  w_wset_data<-w.wset('constituentsindustrydist','windcode=i;enddate=2023-02-07;industry=citicindustrygroups;field=code,name,count,weight')
  
}

1. require(tidyverse)
   
2. idx.lst %>%
   
3.   map(function(idx){
   
4.   istr <- sprintf('windcode=%s;enddate=2023-02-07;industry=citicindustrygroups;field=code,name,count,weight',
   
5.           istr)
   
6.   dat <- w.wset('constituentsindustrydist',istr)$Data
   
7.   dat$idx <- idx
   
8.   dat
   
9. }) %>%
   
10.   reduce(rbind)

复制代码

可能有人喜欢这种代码方式

1. for(idx in idx.lst){
   
2.     wstr <- sprintf('windcode=%s;enddate=2023-02-07;industry=citicindustrygroups;field=code,name,count,weight', idx)
   
3.     dat <- w.wset('constituentsindustrydist', wstr)$Data
   
4. }

复制代码