Question

是否可以在循环中使用dput而不会在每次迭代中覆盖文件，即

f<-function(x){

dput(x,file="sample.R")

}


lapply(data,function(y) {f(y)})

Answer 1

可以这样做，但您需要在append模式下打开一个连接。

data <- list(1:10, c(1,2,3))
fcon <- file('sample.R', 'a')
lapply(data, dput, file = fcon)
close(fcon)
> readLines('sample.R')
[1] "1:10"       "c(1, 2, 3)"

如果您查看dput来源：

，原因很清楚

> dput
function (x, file = "", control = c("keepNA", "keepInteger", 
    "showAttributes")) 
{
    if (is.character(file)) 
        if (nzchar(file)) {
            file <- file(file, "wt")
            on.exit(close(file))
        }
        else file <- stdout()
    ...
}

我们可以看到，如果file参数是字符，则文件连接将以write模式打开，现有内容将被覆盖。

在任何情况下，如评论中所建议的那样使用dump更简单，因为dump具有append参数，该参数确定连接将以何种模式打开。< / p>

> dump
function (list, file = "dumpdata.R", append = FALSE, control = "all", 
    envir = parent.frame(), evaluate = TRUE) 
{
    if (is.character(file)) {
    ...
        if (nzchar(file)) {
            file <- file(file, ifelse(append, "a", "w"))
            on.exit(close(file), add = TRUE)
        }
        else file <- stdout()
    }
    ...
}

使用带有lapply的dput函数

1 个答案: