如何从数据帧中获取可变大小的随机样本

Question

这可能是一个简单的问题，但是我一直在努力寻找解决方案。我想自动对dataframe中的行进行采样，但是我想迭代地增加样本的大小（采样的行数），直到样本大小等于dataframe的长度为止。

为了展示我的目标，我将提供一个非常有用的示例：

data<-data.frame(replicate(6,sample(0:1,10,rep=TRUE)))

samples<-list()
samples[[1]]<-data[sample(nrow(data), 2),]
samples[[2]]<-data[sample(nrow(data), 4),]
samples[[3]]<-data[sample(nrow(data), 6),]
#... until:
samples[[10]]<-data[sample(nrow(data),10),]