如何复制R中的文件子集

我在目录中有 260 个文件。文件的注释为Imxxx_y，其中x从001到130，y为0或1。也就是说，对于y=0，我有130个文件，剩下的130个为y=1。如果我想复制前 100 个文件，我该如何在 R 中做到这一点？我尝试了以下代码，

fnames <- list.files(path = original_dataset_dir, pattern = "1.tif") file.copy(file.path(original_dataset_dir, fnames), file.path(train1_yes_dir))

它复制了 130 个文件，但我只想复制 100 个。