我正在撰写一篇关于名为SparseTSCGM的软件包的Rmarkdown文档，并且无法抑制此软件包中的函数生成的消息。我所引用的消息可以通过以下代码生成：
const result = a.map(obj => ({...obj, address:"add"}));
我尝试使用函数if(!require(SparseTSCGM)) install.packages('SparseTSCGM')
library(SparseTSCGM)
datas <- sim.data(model="ar1", time=10,n.obs=10, n.var=5, prob0=0.35,
network="random")
res.tscgm <- sparse.tscgm(data=datas$data, lam1=NULL, lam2=NULL,nlambda=NULL, model="ar1", penalty="scad",optimality="bic_mod", control=list(maxit.out = 5, maxit.in = 5))
和invisible()，但这些功能在Rmarkdown或R控制台中都无济于事。我还尝试添加选项suppressMessages()，如下所示：
message = FALSE但这没有帮助。
我发现我可以使用```{r message=FALSE}
library(SparseTSCGM)
datas <- sim.data(model="ar1", time=10, n.obs=10, n.var=7, prob0=0.35, network="random")
res.tscgm <- sparse.tscgm(data = data.fit, lam1 = NULL, lam2 = NULL, nlambda = NULL, model = "ar1", penalty = "lasso", optimality = "bic", control = list(maxit.out = 10, maxit.in = 100))
```
来抑制R控制台中的输出（我正在使用Windows系统），但这种方法在Rmarkdown中不起作用。当我尝试这种方法时，我试图压制的消息仍然存在，但Rmarkdown控制台发出警告：sink('NUL')。
"Warning message: In sink() : no sink to remove"无法与Rmarkdown一起使用，还有其他方法吗？如果没有解决方案，我总是可以手动从HTML文件中删除该部分，但这是最后的手段。