主页 / coding / 问题 / 79289488
Accepted
Harrison Jones
Asked: 2024-12-18 06:10:39 +0800 CST

包装 deparse() 和 substitute()

  • 772

我正在尝试编写一个可以简单循环的函数deparse()，substitute()如下所示：

get_name <- function(x) {
  deparse(substitute(x))
}

的要点get_name()是返回函数参数的字符对象。get_name()在我的全局环境中调用时，它正在工作，如下所示：

# no problem here, returns "Variable1" as expected
get_name(x = Variable1)
[1] "Variable1"

当我尝试使用另一个函数时，就会出现问题get_name()。如下所示：

# a new function that uses get_name()
new_function <- function(arg1) {
  get_name(x = arg1)
}

# returns "arg1"
# should be returning "Variable1"
new_function(arg1 = Variable1)
[1] "arg1"

我最初的想法是，一定有办法使用环境来解决这个问题。但是，当我尝试使用eval()它时，它不起作用，因为Variable1它实际上不是我全局环境中的对象，它只是我函数参数中的值。

我也尝试过其他函数，例如和rlang的组合，但不幸的是，它不起作用。as_string()ensym()

1 个回答

  1. Best Answer

    请记住，每个函数调用都会创建一个新的框架来存储其变量。您的get_name函数具有与不同的框架new_function。您希望替换在的框架中进行new_function，并且substitute在调用它时引用其第一个参数。

    我认为这是一个可以满足您要求的函数：

    get_name <- function(x) {
  nm <- substitute(x)
  pf <- parent.frame()
  deparse(do.call(substitute, list(nm,pf)))
}

    我们首先使用substitute获取您想要的名称的参数（示例中为 arg1）并将其存储在中nm。我们不需要解析，因为我们想要一个语言对象。

    然后我们用它parent.frame来获取调用该函数的框架。

    然后使用我们已经抓取的名称和父框架do.call构造调用，然后解析该结果。substitute

    以你的例子来说new_function：

    > get_name <- function(x) {
+   nm <- substitute(x)
+   pf <- parent.frame()
+   deparse(do.call(substitute, list(nm,pf)))
+ }
> new_function <- function(arg1) {
+   get_name(x = arg1)
+ }
> new_function(arg1 = Variable1)
[1] "Variable1"
> new_function(arg1 = something_else)
[1] "something_else"

    然后你也可以做这样的事情：

    myplot <- function(x, y) {
  xl <- get_name(x)
  yl <- get_name(y)
  plot(x, y, 
       xlab=paste('x:', xl),
       ylab=paste('y:', yl))
}
myplot(runif(100), rnorm(100))

    并且情节有基于的标签get_name。

    • 7

相关问题