通过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)