在R中存储glmer对象：调用模型元素问题及持久化方案

我尝试参考Stack Overflow帖子中「在R中将lm对象存入数据框」的思路处理glmer模型，示例模型代码如下：

fit1 <- glmer(y ~ scale(x) + (1 | ID), data=dat, family = binomial, control=glmerControl(optimizer="bobyqa", optCtrl=list(maxfun=100000)))

使用原帖子中的代码后，list_models可以正常显示模型摘要，但执行list_models$fit1$coefficients时出现错误：

Error in list_models$vasb3$coefficients :$ operator not defined for this S4 class

问题1（未解决） #

如何实现从list_models中调用任意模型元素（如coefficients）？

问题2（已解决） #

如何持久化存储模型以避免重复运行，解决方案代码如下：

# 保存对象到本地
saveRDS(list_models, file="list_models.RData")
# 读取本地对象
readRDS("list_models.RData")

内容的提问来源于stack exchange，提问作者nnet