r-使用引用id 0x00000000访问环境

Question

我有一个模型对象，它在硬盘中显示的大小比在R中显示的大。经过一些搜索，我设法找到了问题原因，如下所示

format(object.size(JMFit1$model_info$coxph_components$TermsU), units='Mb')
[1] "0 Mb"
pryr::object_size(JMFit1$model_info$coxph_components$TermsU)
28.5 MB

但是JMFit1$model_info$coxph_components$TermsU返回

>JMFit1$model_info$coxph_components$TermsU
...
attr(,".Environment")
<environment: 0x0000000025035540>
...

那么，是否有任何方法可以使用引用id(即"0x0000000025035540"(访问此环境，然后应用ls进行探索。

以下是我在第一季度和第二季度尝试的问题，但没有成功。此外，我已经尝试了ls(envir=attr(lm.fit.full$terms, ".Environment"))从这个博客，但它通过以下错误

ls中的错误(envir=attr(JMFit1$model_info$coxph_components$TermsU，".Environment"(：无效的"envir"参数

完整模型：

library(JMbayes)
MixedModelFit1 <- mvglmer(list(log(serBilir) ~ year + (year | id)), data = pbc2, families = list(gaussian))
pbc2.id$Time <- pbc2.id$years
pbc2.id$event <- as.numeric(pbc2.id$status != "alive")
CoxFit <- coxph(Surv(Time, event) ~ drug + age, data = pbc2.id, model = TRUE)
JMFit1 <- mvJointModelBayes(MixedModelFit1, CoxFit, timeVar = "year")

非常感谢您的任何建议或帮助。

Answer 1

这里有一种方法，它不使用ref id，但正确地使用了博客方法：

ls(envir=attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment"))

要从该env中获取对象，我们可以执行以下操作：

env <- attr(JMFit1$model_info$coxph_components$TermsU$`log(serBilir)_value`, ".Environment")
#To get Data for example
d <- get("Data",envir=env)
> typeof(d)
[1] "list"
> format(object.size(d),units='Mb')
[1] "2.8 Mb"

但是，我仍然很好奇是否有办法使用裁判id，尤其是@Spacedman在这里说试图通过内存位置获取R对象是行不通的，但我希望自2014年以来可能会有更新。