R 编写保存和加载对象的函数

我试图通过使用调用save（）和load（）的包装函数来简化对象的保存和加载

代码如下：

#Just creates a file path
.z$filePath.set <- function(filename){
    return(paste("C:/Users/Michael/Documents/Computer/R/Data/",
    filename,sep=""))
}

#Saves an object
.z$file.write <- function(obj,fname){    
    filepath = .z$filePath.set(fname)
    fp = file(filepath,open="wb")
    save(obj,file=fp)
    close(fp)
}

#Loads an object
.z$file.read <- function(fname){
    filepath = .z$filePath.set(fname)
    fp = file(filepath,open="rb")
    load(fp,envir=.GlobalEnv)
    close(fp)
}

#Then run the code (tmp is a large data.frame):
    .z$file.write(obj=tmp,fname="tmp.R")
    rm(tmp)
    .z$file.read(fname="tmp.R")

#只创建一个文件路径
.z$filePath.set
loadObject
和
saveObject
在package
R.utils
中提供您想要的功能。也许
saveRDS
和
readRDS
是一个更好的选择。loadObject和saveObject可以完成这项工作。非常感谢。