コンソールへの光沢のある出力を抑制する

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： ....

私はこのコンソール出力を停止したいと思います。私はinvis ible（）いいえ。

Answer 1

これは、それを固定...

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

はnullに離れて任意の応答を送信します。確かにRやシャイニーの問題は、スクリプトを使った私の貧弱なスキルだけではありません。

フィードバックいただきありがとうございます。