R 抑制到控制台的输出

我希望抑制到控制台的输出。我知道控制台抑制的典型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()
})

if（系统（“fuser-n tcp 8888>/dev/null”）==0）{
输出$serverStatusType此已修复它

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

会将任何响应发送到null。当然不是R或闪亮的问题，只是我糟糕的脚本技能

感谢您的反馈。
您看到的输出可能是stderr吗？如果您重定向它会怎么样：
2>&1>/dev/null
？