如何消除R函数中参数周围的引号？

Question

以下是R函数的前几行:

teetor <- function(x,y) {

require("quantmod")
require("tseries")

alpha <- getSymbols(x, auto.assign=FALSE)
bravo <- getSymbols(y, auto.assign=FALSE)

t     <- as.data.frame(merge(alpha, bravo))

# ... <boring unit root econometric code>

}

当我将两个股票代码作为函数参数传递时,我需要用引号将它们括起来:

teetor("GLD", "GDX")

我希望能够简单地输入:

teetor(GLD, GDX)

Answer 1

别.牺牲清晰,简单的代码只是为了节省几次击键是一个坏主意.您已经创建了一个只能以交互方式使用的函数,而不是从另一个函数调用的函数.

Answer 2

有几种方法可以做到这一点,但通常我不会建议.

通常调用没有引号的东西就意味着对象本身就在搜索路径中.在不指定的情况下执行此操作的一种方法是使用该with()功能.

您可以通过以下方式获取某些内容的名称而不实际存在deparse(substitute(...)):

> blah <- function(a) {
    deparse(substitute(a))
  }
> blah(foo) 
[1] "foo"
> foo 
Error: object 'foo' not found

所以原则上你可以deparse(substitute(...))在你的teetor函数中使用上面的例子来获取名称,而不是传入名称.