R 如何指定所有文件的路径？

我正在处理一些文件，并希望写入结果，并为它们提供与处理前相同的名称

代码如下：

读取文件：

  dir2 <- list.files("/data/reprojected", "*.img", full.names = TRUE) 
   results<- list()

    for (i in seq_along(results)){
    fileName <- strsplit(dir2[i],split='\\.')[[1]][1]
    outputFile <- paste(fileName,'','.img',sep='')
   writeBin(as.double(results[[i]]), outputFile, size = 4)}

---

dir2
dirname
和
basename
分别将路径名拆分为目录和文件组件。你可以用它来代替你自己的目录

fileName <- strsplit(basename(dir2[i]), "\\.")[[1]][1]
fileName <- file.path(<new_directory>, fileName)
...

fileName
dirname
和
basename
分别将路径名拆分为目录和文件组件。你可以用它来代替你自己的目录

fileName <- strsplit(basename(dir2[i]), "\\.")[[1]][1]
fileName <- file.path(<new_directory>, fileName)
...

文件名似乎有点不必要的循环。您应该查看
lappy
以获得更简单的for循环接口，并将循环组合成一个函数。您知道如何使用lappy吗？类似于
lappy（dir2，function（x）{#定义输出文件的行，然后：\n writeBin（as.double（500*readBin（x，numeric（），size=4，n=1440*720，signed=TRUE），outputFile，size=4）}
似乎有点不必要的循环。您应该查看
lappy
以获得更简单的for循环接口，并将您的循环组合到单个函数中。有没有关于如何使用lappy的想法？类似于
lappy（dir2，function（x）{定义输出文件的行，然后：\n writeBin（as.double（500*readBin（x，numeric（），size=4，n=1440*720，signed=TRUE），outputFile，size=4）}