运行代码后如何附加和保存CSV文件名

Question

我有一个通常像"01082019.csv"一样加载的csv文件。运行代码后，我想将此文件另存为"01082019Analysis"。我的问题是，如何解析原始文件名并取出"01092019"并将其附加到"analysis.csv"，这样导出的已保存文件将为"01082019Analysis"？

Answer 1

您可以将它们粘贴在一起，然后用.csv删除中间的sub()。然后，我们可以通过捕获analysis并使用a进行替换来大写\\U\\1。

x <- "01082019.csv"
y <- "analysis.csv"

sub("\\.csv(a?)", "\\U\\1", paste0(x, y), perl=TRUE)
# [1] "01082019Analysis.csv"

如果两个.csv都需要删除，请使用gsub()。

gsub("\\.csv(a?)", "\\U\\1", paste0(x, y), perl=TRUE)
# [1] "01082019Analysis"