如何返回一個文件的相同名稱並稍作更改？

我正在做一些計算一些文件，然後我寫回來。我的代碼在這裏讀取數據，進行簡單的計算，然後寫出結果並採用原始文件的相同名稱。如何返回一個文件的相同名稱並稍作更改？

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

名稱的所有部分對於除日期以外的所有文件都是相同的。任何幫助表示讚賞！

來源

2015-03-25 sacvf

您可以使用這樣的事情（這是一個想法）：

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

來源

2015-03-25 11:15:33 Brother

如何返回一個文件的相同名稱並稍作更改？

回答

相關問題