R函数中的环境管理

Question

我使用了两个函数：

csvExport <- function(data, path = "", enc = 'utf8'){
    filename <- paste(data, "csv", sep=".")
    if (path == ""){
      name <- filename
    } else {
      name <- paste(path, '/', filename, sep="")
    }
    x <- get(data) # get the object
    con <- file(name, encoding = enc)
    write.csv2(x, file = con, row.names=FALSE, quote = TRUE)
  }  
}

和

listExport <- function(myList){
  for(n in names(myList)){
    assign(n, myList[[n]])
    csvExport(n)
  }
}

出于测试目的：

test <- function(){
  a <- data.frame(x = c(1,2,3,4,5), y = c(5,4,3,2,1))
  b <- data.frame(x = c(1,2,3,4,5), y = c(5,4,3,2,1))
  myList <- list(a1 = a, b1 = b)
  listExport(myList)
}

现在，调用test()会给出一个"Object a1 not found“错误。我假设这是某种乱七八糟的环境，因为错误发生在行中

x <- get(data)

我该如何解决这个问题呢？

Answer 1

你有很多选择。一种方法是让你的csvExport函数接受data.frame而不是data.frame的名字，并在csvExport(get(n))中执行listExport，我相信这会在正确的环境中进行，除非将缺省值分配给全局，我不认为它会这样做。或者干脆放弃整个get，直接将myList[[n]]传递给csvExport