假设我有个列表，需要对其中的每个组件都赋值为一个子列表，有批量赋值的方法么？

比如：  
    cs<-list(aa=c(1,2,3),bb="abc",cc=55) #这是子列表
    ds<-vector(mode="list",10)   #需要赋值的列表

怎么将ds中的组件批量赋值为cs呢

试过  ds[1:10]<-cs  但这样只是将ds中的组件循环替换为cs中的组件，而不是批量赋值成cs