[英]How to save an object generated by “assign” function as .Rdata file in a loop
How to save an object generated by "assign" function as .RData file in a loop? 如何在循环中将“分配”功能生成的对象另存为.RData文件? Here is an example.
这是一个例子。
for (ii in 1:3){
QQ=matrix(runif(15),5,3)
assign(paste0("FF", ii),QQ)
}
Personally, I find that .RDS
files are better suited to save single objects. 就个人而言,我发现
.RDS
文件更适合保存单个对象。 For instance: 例如:
for (ii in 1:3) {
QQ = matrix(runif(15), 5, 3)
object_name <- paste0("FF", ii)
assign(object_name, QQ)
tmp_fle <- tempfile(pattern = object_name, fileext = ".RDS")
print(tmp_fle)
saveRDS(
object = get(x = object_name),
file = tmp_fle
)
}
Given the results: 鉴于结果:
# [1] "/var/folders/7x/kwc1y_l96t55_rwlv35mg8xh0000gn/T//Rtmpsj0j8h/FF1afe6b0a300.RDS"
# [1] "/var/folders/7x/kwc1y_l96t55_rwlv35mg8xh0000gn/T//Rtmpsj0j8h/FF2afe369d586e.RDS"
# [1] "/var/folders/7x/kwc1y_l96t55_rwlv35mg8xh0000gn/T//Rtmpsj0j8h/FF3afe1418b9c5.RDS"
To access second of the saved objects: 要访问第二个已保存的对象:
>> readRDS("/var/folders/7x/kwc1y_l96t55_rwlv35mg8xh0000gn/T//Rtmpsj0j8h/FF2afe369d586e.RDS")
[,1] [,2] [,3]
[1,] 0.38537636 0.2969078 0.9603315
[2,] 0.08339023 0.9127538 0.6552166
[3,] 0.55220069 0.4384881 0.5345182
[4,] 0.10179912 0.6353755 0.8247961
[5,] 0.63983736 0.8858784 0.8904668
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.