循环渲染Rmd生成HTML时体积异常增大的问题求助

问题根源 #

用rgl生成的交互式3D图，在循环批量渲染时，默认会把之前所有迭代生成的图形对象都保留在会话里，导致每个输出的HTML文件都打包了所有次迭代的内容，自然体积就变成原来的10倍。

解决办法 #

• 每次循环结束后，强制清空rgl的图形设备，不让旧图形残留到下一次渲染。用rgl::rgl.close()或者rgl::clear3d()都可以。
• 搭配knitr::knit_clean()清理临时文件，进一步压缩输出体积。

修改后的循环代码 #

library(knitr)
library(rmarkdown)
library(sessioninfo)
library(rgl)  # 必须加载rgl包才能调用清理函数
load('lista.Rdata')

for (i in seq(1:length(lista))){
  param1 <- i
  render("FatvsBHB_3D.Rmd",
         params = list(
           trait = param1
         ),
         output_format = "html_document", 
         output_file = paste0('3D/FatvsBHB_3D_', lista[i], '.html'))
  
  # 清理当前rgl图形设备，避免残留
  rgl.close()
  # 清理knitr生成的临时文件
  knit_clean()
}

额外优化点 #

• 在你的FatvsBHB_3D.Rmd开头加一行rgl::setupKnitr(autoprint = FALSE)，手动控制图形输出，防止自动打印多余的对象。
• 可以给render函数加envir = new.env()参数，让每次渲染都在独立的环境里运行，彻底隔离不同迭代的变量和对象：

  render("FatvsBHB_3D.Rmd",
         params = list(trait = param1),
         output_format = "html_document", 
         output_file = paste0('3D/FatvsBHB_3D_', lista[i], '.html'),
         envir = new.env())
  

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