r - 在 R 中将 .txt 更改为 .csv

Question

我已经能够在 R 中创建一个代码来批量格式化我所有的 .txt 文件到 .csv 文件使用

setwd("~/Desktop/test/")
filelist = list.files(pattern = ".txt")
for (i in 1:length(filelist)){
    input<-filelist[i]
    output<-paste0(input, ".csv")
    print(paste("Processing the file:", input))
    data = read.delim(input, header = TRUE)   
    setwd("~/Desktop/test/done/")
    write.table(data, file=output, sep=",", col.names=TRUE, row.names=FALSE)
    setwd("~/Desktop/test/")
}

效果很好，但文件仍保留名称中的 .txt 扩展名
示例原始文件 = "sample1.txt"然后新文件显示 "sample1.txt.csv"该文件作为 .csv 工作，但文件名中额外的 ".txt"使我烦恼，任何人都知道如何从名称？
谢谢

Answer 1

您可以删除不需要的 .txt :

output <- paste0(gsub("\\.txt$", "", input), ".csv")

反斜杠将点标记为文字点(如果未标记，它在正则表达式中还有其他含义)。反斜杠必须加倍，因为 R 试图逃避单个反斜杠。美元符号代表字符串的结尾，因此只有文件名末尾的“.txt”被删除。