从列表中动态提取名称

Question

在不更改基础数据类型的情况下，动态地从列表中提取名称变量的正确方法是什么？我原本以为我可以使用thelist[varname]来执行此操作，但括号操作始终将值转换为列表。以下是一个例子：

df <- data.frame(x,y,z)
names(df) <- c('x','y','z')
lms = list(
  lm1 = lm(y ~ x, data = df),
  lm2 = lm(z ~ x, data = df)
)

class(lms$lm1) # => lm
class(lms['lm1']) # => list