英文:
How to write/override your own assignment function as in `names<-`?
问题
受到 names<- 函数工作方式的启发，我想在一个包内实现类似的功能。
可复现示例
创建一个空的包，并添加以下文件：
## R/internal-state.Rthe <- new.env(parent = emptyenv())#' @exportobject <- function(name) the[[name]]#' @exportset_object <- function(name, value) the[[name]] <- value
然后在控制台执行以下步骤：
> usethis::use_namespace() ## 然后选择 Yes> devtools::document()
之后，使用 CTRL+SHIFT+B 安装包。
现在你可以执行以下操作：
> library(testpackage)> set_object("foo", 1)> object("foo")[1] 1
问题
如何修改这个示例以实现以下功能？
> library(testpackage)> object("foo") <- 1> object("foo")[1] 1
（请注意，上述代码段中的 " 是 HTML 实体，应该被替换为正常的双引号 "，以使代码正常工作。）
英文:
Inspired by the way the names<- function works I want to be able to do something similar inside a package.
Reproducible example
Create an empty package and add the following file:
## R/internal-state.Rthe <- new.env(parent = emptyenv())#' @exportobject <- function(name) the[[name]]#' @exportset_object <- function(name, value) the[[name]] <- value
Then on the console:
> usethis::use_namespace() ## and choose Yes> devtools::document()
After that, install package with CTRL+SHIFT+B
Now you can do this:
> library(testpackage)> set_object("foo", 1)> object("foo")[1] 1
Question
How to modify this example to be able to do that?
> library(testpackage)> object("foo") <- 1> object("foo")[1] 1
答案1
得分: 1
不能使用这样的函数，如果第一个值不是可赋值的。在这里，您有字面字符串值 "foo"，您不能对该字面值进行赋值，所以复杂的 function<- 语法糖将不起作用。当您使用 names(x) <- "a" 时，x 值是一个可以更新的变量。该调用被翻译为类似以下内容：
x <- `names<-`(x, "a")
这意味着 object("foo") <- 1 将变成
"foo" <- `object<-`("foo", 1)
这是没有意义的。
英文:
You can't use a function like this if the first value is not "assignable". Here you have the literal string value "foo" and you cannot assign a value to that literal value so the fancy function<- syntactic sugar will not work. When you use names(x) <- "a" the x value is a variable that can be updated. The call is translated to something like
x <- `names<-`(x, "a")
This means object("foo") <- 1 would become
"foo" <- `object<-`("foo", 1)
which doesn't make sense
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论