Question

并不是非常重要，但我想使用v2打印变量名“v1”：

v1=c(1,2,3,4)
v2=v1
print(source_name(v2))

可以这样做吗？

Answer 1

您需要将v2更改为字符串并使用get()。 print()没用（在这种情况下）

v1=c(1,2,3,4)
v2='v1'
get(v2)

Answer 2

@Rcoster似乎收集了你实际要求的内容，但这里有一个解决你的问题的解决方案。

# create a callback function that executes at each top level evaluation. 
# If the evaluated call is assignment and the rhs is a symbol, record 
# this in a global variable .source_names, which the function 
# source_name below can reference.
t <- addTaskCallback(function(expr, value, ok, visible) {
    if (class(expr) %in% c('=', '<-')) {
        expr.list <- as.list(expr)
        lhs.index <- 2
        rhs.index <- 3
        if (is.symbol(expr.list[[rhs.index]])) {
            if (! exists('.source_names')) 
                .source_names <<- list()
            .source_names[[as.character(expr.list)[[lhs.index]]]] <<- expr.list[[rhs.index]]
        }
    }
    return(TRUE)
})

source_name <- function(x) {
    name <- deparse(substitute(x))
    if (exists('.source_names')) {
        .source_names[[name]]
    }
}

v1 <- 1
v2 <- v1
source_name(v2)
# v1

# to turn off
removeTaskCallback(t)

打印出分配给另一个矢量的矢量名称

2 个答案: