将.txt更改为R中的.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/")
}

工作得很好,但文件仍然保留名称示例origninal file ="sample1.txt"中的.txt扩展名,然后新文件说"sample1.txt.csv"该文件作为.csv工作,但额外的".txt"在文件名让我烦恼,有谁知道如何从名称中删除它？谢谢

Answer 1

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

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

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