定义`（<-`运算符时获取x的名称

Question

我想定义(<-和访问左侧参数的名称：

*<-函数内部使用中间'*tmp*'变量。是否仍有可能获得x的名称？

`(<-` <- function(x,value){
  print(deparse(substitute(value)))
  print(deparse(substitute(x)))
  print(match.call())
  value
}

foo <- 0
(foo) <- 3
# [1] "3"
# [1] "*tmp*"
# `(<-`(x = `*tmp*`, value = 3)# [1] "3"

我想从函数内部获取“ foo”。

我试图通过破解它tracemem，即调用sapply(ls(envir = parent.frame()),tracemem)和tracemem(x)功能，但里面的地址foo，*temp*并且x都是不同的。

Answer 1

我破解了它，尽管我并不理解我所做的一切。

我注意到pryr::address给出的结果与尝试的结果不同tracemem（我必须深入研究要使用的代码，pryr:::address2因为pryr::address没有环境参数）。

tracemem然后我注意到混合来自一个x和pryr:::address2其余对象的结果有一个匹配（在基本重新格式化之后）：

`(<-` <- function(x,value){
  pf <- parent.frame()
  all_addresses       <- sapply(ls(pf), pryr:::address2, pf)
  all_addresses       <- all_addresses[names(all_addresses) != "*tmp*"]
  all_addresses_short <- gsub("(^|<)[0x]*(.*?)(>|$)","\\2",all_addresses)

  x_address       <- tracemem(x)
  x_address_short <- tolower(gsub("(^|<)[0x]*(.*?)(>|$)","\\2",x_address))

  ind    <- match(x_address_short, all_addresses_short)
  x_name <- names(all_addresses)[ind]

  message("all_addresses, using pryr::address2")
  print(all_addresses)
  print(all_addresses_short)

  message("x_address, using tracemem")
  print(x_address)
  print(x_address_short)

  message("x_name, matching substrings")
  print(x_name)

  value
}

调用中使用的正则表达式gsub试图考虑我们在不同系统中获得的地址格式，我不能 100% 确定它是通用的。

输出：

foo <- 1
bar <- 2
(foo) <- foo

# all_addresses, using pryr::address2
# (<-          bar          foo 
# "0x1433df50" "0x14937678" "0x14937708" 
# (<-        bar        foo 
# "1433df50" "14937678" "14937708" 
# x_address, using tracemem
# [1] "<0000000014937708>"
# [1] "14937708"
# x_name, matching substrings
# [1] "foo"

如果 x 不是变量名，则会中断，例如：

foo <- iris
(foo$species) <- 3

我们可以假设如果没有找到地址 x 是一个列表项，然后在我们拥有的所有列表项的地址中查找它的地址parent.frame（递归地），但我认为对于今天来说这已经足够丑陋了。