將閃亮的輸出抑制到控制台

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只是我在腳本編寫方面的技能差。

感謝您的反饋。