我试图使用RStudio从一个文件夹中对文件进行子集化,这些文件都是用4位数字(例如Horse0001.jpg
、Horse0002.jpg
等)按顺序命名的.然而,我遇到了错误,因为我不知道如何让R读取文件索引的方式—R相反试图看他们作为Horse1.jpg
,Horse2.jpg
,因此告诉我它不能运行命令,因为它找不到文件Horse1.jpg
(它不存在).
我知道问题出在代码的start_index
部分,但我不知道如何操作它.
我希望上面说的是有意义的.
我的代码如下:
original_dir <- path("data/horsies")
new_base_dir <- path("data/horsies2")
make_subset <- function(subset_name,
start_index, end_index) {
for (category in c("horse", "ponies")) {
file_name <- glue::glue("{category}.{ start_index:end_index }.png")
dir_create(new_base_dir / subset_name / category)
file_copy(original_dir / file_name,
new_base_dir / subset_name / category / file_name)
}
}
make_subset("train", start_index = 1, end_index = 2000)
make_subset("validation", start_index = 2001, end_index = 2200)
make_subset("test", start_index = 2201, end_index = 2500)
提前感谢!