使用TM包读取R中的文本挖掘的多个文件？

Question

我正在尝试阅读一些文本挖掘任务的csv文件。

我已使用此命令检查工作目录中的文件数：

docs<- Corpus(DirSource(directory = "D:/Shivi/R Project"))  

结果超过220。

我只需要这些文件中的3个文件用于文本挖掘，但是如果我使用：

bucket = [x for l in ([s]*r for s, r in zip(size, ratiointeger)) for x in l]

这会读取所有220多个文件

请建议如何实现这一壮举。