Как сохранить () с определенным именем переменной

Я неоднократно применяю функцию для чтения и обработки куча файлов csv. При каждом запуске функция создает фрейм данных ( this.csv.data ) и использует save () для записи его в файл .RData с уникальным именем. Проблема в том, что позже, когда я прочитал эти файлы .RData с помощью load () , имена загруженных переменных не уникальны, потому что каждая из них загружается с именем this.csv. данные ....

I ' Я бы хотел сохранить их с уникальными тегами, чтобы они получали правильные имена, когда я load () их. Я создал следующий код для иллюстрации.

this.csv.data = list(data=c(1:9), unique_tag = "some_unique_tag")
assign(this.csv.data$unique_tag,this.csv.data$data)
# I want to save the data, 
# with variable name of <unique_tag>, 
# at a file named <unique_tag>.dat
saved_file_name <- paste(this.csv.data$unique_tag,"RData",sep=".")
save(get(this.csv.data$unique_tag), saved_file_name)

, но последняя строка возвращает:

 «Ошибка при сохранении (get (this_unique_tag), file = data_tag):
 объект 'get (this_unique_tag)' не найден "

даже если следующее возвращает данные в полном порядке:

get(this.csv.data$unique_tag)