如何根据在R中选择的文件输出文件名

Question

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

我想将输出的文件命名为file.choose，但不是.txt我希望它被称为.fa。到目前为止我已经

了

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"