4

这是那些“必须有这个功能”的问题之一。这没什么大不了的，但它只是很烦人，每次我重命名一个对象时，我都想知道是否有更好的方法。

假设我将一个我创建的对象大写并意识到我宁愿让它不大写：

# Create test data
X <- runif(100)
# Rename the object
x <- X
rm(X)

有没有一种单一的方式来做到这一点（这也避免了由于内存/速度原因而重新复制）？在各种包中命名了一些命令rename，但它们都适用于列表中的元素，而不是列表（或其他对象）本身。

4

1 回答 1

3

我不知道执行此操作的内置方法，但您可以轻松编写自己的函数来执行这些操作。例如，这只是在没有任何检查以确保对象存在或是否已经存在名为您要重命名的对象的情况下进行。

mv <- function(x, y){
    x_name <- deparse(substitute(x))
    y_name <- deparse(substitute(y))

    assign(y_name, x, pos = 1)
    rm(list = x_name, pos = 1)
    invisible()
}

一些示例使用

> x <- 3
> x
[1] 3
> y
Error: object 'y' not found
> mv(x, y)
> x
Error: object 'x' not found
> y
[1] 3

编辑：对于那些没有遵循评论中的链接的人，这里是 Rolf Turner 编写的版本，它进行了一些检查以确保我们要移动的对象确实存在，并询问我们是否要覆盖现有对象，如果新名称中已经有一个对象。

mv <- function (a, b) {
    anm <- deparse(substitute(a))
    bnm <- deparse(substitute(b))
    if (!exists(anm,where=1,inherits=FALSE))
        stop(paste(anm, "does not exist.\n"))
    if (exists(bnm,where=1,inherits=FALSE)) {
        ans <- readline(paste("Overwrite ", bnm, "? (y/n) ", sep = ""))
        if (ans != "y")
            return(invisible())
    }
    assign(bnm, a, pos = 1)
    rm(list = anm, pos = 1)
    invisible()
}
于 2012-07-13T18:32:23.270 回答