如何基于R中选择的文件输出文件名

Question

嗨，我正在从file.choose中选择的文本文件上执行任务，该任务只是分隔行，然后为每个分隔添加新的数字。

我想将输出文件的名称与file.choose相同，但我希望将其命名为.fa而不是.txt。 到目前为止，我有

fileConn<-file("outputtbb.txt")
longlist <- readLines(file.choose())
lvls1 <- unique(longlist)
cat(paste0("Sequence>", seq_along(lvls1), "\n", lvls1, collapse="\n"), file=fileConn)
close(fileConn)

我知道它与更改file = fileConn有关，但无法弄清楚如何操作它，我得到的只是outputtbb。

请帮忙！

Answer 1

您可以将readLines(file.choose())分隔为两行。

filename <- file.choose()
longlist <- readLines(filename)

现在，您可以将文件名作为变量使用，可以弯曲它，也可以整天扭曲它（不打算引用iPhone 6弯曲）。

要更改结尾，假设文件名中的其他任何地方都没有“ .txt”出现，

x <- "file.txt"
sub(".txt", replacement = ".fa", x = x)
[1] "file.fa"