如何更改在 R 中创建的导入函数中的引用？

Question

我试图创建一个允许我快速导入文件的功能，但我无法以我想要的名称导入它。

代码如下：

g.import<- function(x) {
  x <<- read.csv(file.choose(), header=TRUE, sep=",")
  assign('x',x,envir=.GlobalEnv)
  return(head(x,3))
}
g.import(x=a)

我将获得名为 x 的导入文件，但我希望能够更改名称...

Answer 1

首先，<<-和assign()部分是多余的。如果要用字符值调用，可以使用

g.import<- function(x) {
  z <- read.csv(file.choose(), header=TRUE, sep=",")
  assign(x,z,envir=.GlobalEnv)
  return(head(z,3))
}
g.import(x="a")

要调用不带引号的符号，您可以使用

g.import<- function(x) {
  z <- read.csv(file.choose(), header=TRUE, sep=",")
  assign(deparse(substitute(x)),z,envir=.GlobalEnv)
  return(head(z,3))
}
g.import(x=a)

如何更改在 R 中创建的导入函数中的引用？

How to change reference in created import function in R?

r

reference

function