使用输入文件名命名输出文件

Question

我对 R 编程相当陌生，如果这个问题已经得到解答，我深表歉意；我确实在寻找答案，但也许我的措辞不对。

我已经导入了一个 TXT 文件，对数据进行了分析和转换，现在希望编写一个 CSV 文件用于导出。但是，由于此脚本旨在运行多个文件，因此我想使用输入 TXT 文件中的文件名作为输出 CSV 文件。

>read.csv("C:\\Users\\Desktop\\filename.txt", header=FALSE)
>...
>...
>write.csv(Newfile, "filename.csv")

例如，我希望能够获取路径的“文件名”部分并（我假设）创建一个字符串变量来提取我要编写的 CSV 文件的名称。

我知道这是初学者级别的东西，但我们将不胜感激。谢谢！

Answer 1

我们可以将文件名和路径保存在一个变量中，然后操作以生成输出文件名：

myInputFile <- "C:\\Users\\Desktop\\filename.txt"
myOutFile <- paste0(tools::file_path_sans_ext(myInputFile),".csv")

# test
myInputFile
# [1] "C:\\Users\\Desktop\\filename.txt"
myOutFile
# [1] "C:\\Users\\Desktop\\filename.csv"

或者更一般的方法，我使用下面来跟踪我的来龙去脉：

# define folders
folderWD <- "/users/myName/myXproject/"
folderInput <- paste0(folderWD, "data/")
folderOutput <- paste0(folderWD, "output/")

# input output files
fileInput <- paste0(folderInput, "filename.txt")
fileOutput <- paste0(folderOutput, tools::file_path_sans_ext(basename(fileInput)), ".csv")

# test
fileInput
# [1] "/users/myName/myXproject/data/filename.txt"
fileOutput
# [1] "/users/myName/myXproject/output/filename.csv"

#then codez
myInputData <- read.csv(fileInput, header = FALSE)
...
Newfile <- # do some stuff with myInputData
...
write.csv(Newfile, fileOutput)