Моя строка кода
df1<-rbind(df1,assign(paste(x,"_name_",_Date,sep=""),Result))
В принципе
assign(paste(x,"_name_",_Date,sep=""),Result)
такой же как
df2
Когда я делаю
df1<-rbind(df1,df2)
это работает, но это должно быть динамичным и постоянно меняющимся, так как я делаю эти обновления еженедельно.
Нам нужно, чтобы get возвращало значение из строки имени объекта, т. е. assign только присваивало его объекту, а не возвращало значение.
rbind(df1, {
nm1 <- paste(x,"_name_",_Date,sep="")
assign(nm1, Result)
get(nm1)})
Использование небольшого воспроизводимого примера
rbind(head(iris), {
nm1 <- 'newobj'
assign(nm1, tail(iris))
get(nm1)})
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#1 5.1 3.5 1.4 0.2 setosa
#2 4.9 3.0 1.4 0.2 setosa
#3 4.7 3.2 1.3 0.2 setosa
#4 4.6 3.1 1.5 0.2 setosa
#5 5.0 3.6 1.4 0.2 setosa
#6 5.4 3.9 1.7 0.4 setosa
#145 6.7 3.3 5.7 2.5 virginica
#146 6.7 3.0 5.2 2.3 virginica
#147 6.3 2.5 5.0 1.9 virginica
#148 6.5 3.0 5.2 2.0 virginica
#149 6.2 3.4 5.4 2.3 virginica
#150 5.9 3.0 5.1 1.8 virginica
rbindтребует, чтобы имена столбцов были одинаковыми в обоих наборах данных. Я показал небольшой воспроизводимый пример сiris, который у меня отлично работает 30.10.2020all.equal(names(df1), names(Result))30.10.2020