Question

我正在为一些文件做一些计算然后我正在写回来。我的代码在这里读取数据，进行简单的计算，然后编写结果并使用原始文件的相同名称。

  dir1<- list.files("/data/fgoon", "*.img", full.names = TRUE)
  for (files in seq_along(dir1)){
  hefile <- readBin(dir1[files], numeric(), size = 4, n = 1300*500, signed = T)
  results <- hefile+44.8                                                                                                                   
  outputDir  <- "/data/baie"
  outputFile <- file.path(outputDir, basename(dir1[files]))
  writeBin(as.double(results), outputFile, size = 4)
  }

原始文件名例如是

  dert_E_lwe_20030102_yout.img

我需要的是返回相同的名称（在代码中完成），但是对于所有文件，将lwe更改为sh：

   dert_E_sh_20030102_yout.img

除日期外，所有文件名称的所有部分都相同。任何帮助表示赞赏！

Answer 1

你可以使用这样的东西（这是一个想法）：

str_replace_all(basename(dir1[files]),"lwe","sh")

如何通过一点变化返回相同的文件名？

1 个答案: