如何阻止R语言lavaan包的sem()函数自动打印运行输出

核心原因说明 #

你之前尝试的suppressMessage()仅能拦截R的标准消息流输出，invisible()仅能屏蔽函数返回值的自动打印，而lavaan拟合、summary过程的多数输出是直接调用cat()输出到控制台的，因此这两个函数无效。

方案1：使用lavaan内置参数（推荐） #

lavaan提供了官方参数直接控制输出，无需额外封装：

• 给sem()设置verbose = FALSE关闭拟合迭代过程的日志输出，设置warn = -1可进一步关闭非致命警告输出，适配蒙特卡洛模拟的批量运行场景
• 给summary()设置print = FALSE关闭结果的自动打印，仅将结果赋值到目标变量
  修改后的示例代码：

library(lavaan)
x = rnorm(100)
y = rnorm(100)
res = summary(sem("y ~ x", verbose = FALSE, warn = -1), print = FALSE)

方案2：兜底捕获所有输出 #

如果仍有残留打印输出，可以用capture.output()直接捕获所有控制台输出，完全不展示：

library(lavaan)
x = rnorm(100)
y = rnorm(100)
# 所有输出会被存入dummy变量，不会出现在控制台
dummy = capture.output({
  res = summary(sem("y ~ x"))
})

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