循环后保存批量数据

Question

我想在循环结束时将* .nc文件中已在循环内读取的所有数据保存在一个文件中。我在循环中使用了print（d），以查看我的代码是否运行，并且结果很好，因为我收回了将近500个结果。问题是，当我保存循环之外的内容时，只保存了我不想要的最后一次运行。
是的，我阅读了“ {For loop save value”，但并没有帮助我。我也和R合作。

任何想法我该怎么办？

这是我的代码：

df=NULL
    files <- list.files(path="C:/PhD/rs_data/2018/data", pattern="*.nc", full.names=T)
    for (i in 1:length(files)){
        nc <- open.nc(files[i])
        nc_lon <- var.get.nc(nc, "Longitude")
        nc_lat<-var.get.nc(nc, "Latitude")
        nc_sm<-var.get.nc(nc, "Soil_Moisture")
        nc_tm<-var.get.nc(nc, "Days")
        df.smos.s1<- data.frame(nc_lon,nc_lat,nc_sm,nc_tm)
        d = rbind(df, df.smos.s1)
        print(d)
}