r - R中的另一个变量引用对象的属性

Question

有没有办法通过 R 中的其他变量来引用对象的属性？下面的例子将解释我的意思。

假设我们有一个具有某些属性的对象——对象的种类对于这个问题并不重要。例如我们可以有

x <- 1:100
y <- x+rnorm(100)
obj <- lm(y~x+1)

现在我想编写一个函数，其参数将引用对象的一个​​特定属性。例如，我想编写一个函数，它会打印所创建对象的某些属性的值。具体来说，我想要这样的东西：

fun <- function(obj, attr) {
          print(obj$attr)
       }

我的问题是，通过其他变量引用对象属性的方法是什么。我知道这个例子很愚蠢，但我想提请注意问题，而不是功能。

提前致谢

库巴

Answer 1

你可以使用类似的东西：

fun <- function(obj, attr) {
          print(obj[[attr]])
       }

例如 ，

fun(obj,'call')
lm(formula = y ~ x + 1)