Question

我使用一个名为R2BGLiMS的函数，它是Java应用程序的前端。

library(devtools)
install_github("pjnewcombe/R2BGLiMS") # see https://github.com/pjnewcombe/R2BGLiMS

我的问题是这个函数会向控制台输出很多输出，我想要抑制它。我尝试了所有sink，invisible，suppressMessages和capture.output。由cut或paste创建的函数部分可以通过这种方式被抑制（例如sink到文件）。但是仍有大量文本仍打印到控制台。

有没有办法压制所有文字？

这是一个可重现的例子，取自?R2BGLiMS中的例1。

# Run Example 1
utils::data(biopsy, package = "MASS") # Example logistic dataset
covariate.names <- paste0("V",c(1:9))
# Recommend standardising predictors to justify default common hierarchical prior on effects
for (v in covariate.names) {biopsy[,v] <- scale(biopsy[,v])} 
biopsy$class <- as.integer(biopsy$class) - 1
biopsyResults <- R2BGLiMS( # Takes a few minutes to run
  likelihood="Logistic",
  data=biopsy,
  outcome.var="class",
  model.space.priors=list("a"=1, "b"=length(covariate.names), "Variables"=covariate.names), # Beta-binomial(1,P) model space prior
  extra.arguments=list("AlphaPriorMu"=log(mean(biopsy$class)/(1-mean(biopsy$class)))) # Recommend centering intercept prior on logit(event rate)
)

禁止Java函数在R中打印到控制台

0 个答案: