Как добавить и сохранить имя файла CSV после запуска кода

Question

У меня есть CSV-файл, который я обычно загружаю как "01082019.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"