抑制闪亮的输出到控制台

Question

我希望抑制闪亮的输出到控制台。我知道控制台抑制的典型R方法。对于此问题，当我运行系统命令时，系统响应的一部分将发布到控制台：

if(system("fuser -n tcp 8888 >/dev/null") == 0){
  output$serverStatusType <- renderText("Running...")
  return(TRUE)
} else {
  output$serverStatusType <- renderText("Stopped...")
  return(FALSE)
}

dataSvrStatusUpdate <- observe({
  invalidateLater(5000, session)
  svrCheck()
  return()
})

控制台将返回：

聆听http://127.0.0.1:3563

8888 / TCP：
8888 / TCP：
8888 / TCP： ....

我想停止这个控制台输出，我试过了invisible（）没有去。

Answer 1

这修好了......

system("fuser -n tcp 8888 >/dev/null 2>&1")

会将任何回复发送到null。当然不是R或Shiny问题只是我用脚本编写的糟糕技能。

感谢您的反馈。