我在目录中有几个文件,我想处理这些文件并为输出文件指定名称:
代码:
dir1 <- list.files("/data/sm", "*.img", full.names = TRUE)
for (.files in seq_along(dir1)) {
list1 <- readBin(dir1[.files], numeric(), size = 4, n = 1383*586)
## I do calculations here##
results[[length(results) + 1L]] <- list1
}
我在这段代码的最后三行有两个问题:
fileName
仅考虑第一个dot
并将img
放在其后:
原始文件:sat_or.dl.img
fileName&#34;输出&#34;将是sat_or.img
但我希望有相同的名字?任何帮助
答案 0 :(得分:2)
救援的两个功能,basename
和file.path
:
outputDir <- "/data/out"
outputFile <- file.path(outputDir, basename(dir1[i]))