Я неоднократно применяю функцию для чтения и обработки множества CSV-файлов.При каждом запуске функция создает фрейм данных (this.csv.data
) и использует save () для записи его в файл .RData
с уникальным именем.Проблема в том, что позже, когда я читаю эти .RData
файлы, используя load()
, имена загруженных переменных не являются уникальными, потому что каждый из них загружается с именем this.csv.data
....
Я хотел бысохраните их с уникальными тегами, чтобы они вышли правильно названными, когда я 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)
, но возвращается последняя строка:
"Error in save(get(this_unique_tag), file = data_tag) :
object ‘get(this_unique_tag)’ not found"
, даже если следующее возвращает данные просто отлично:
get(this.csv.data$unique_tag)