コンソールでRServe printing jsonを停止する

Question

非常に興味深い問題が発生しています。私はprint文を含んでいないRコードを持っています（ただし、時間を記録するための明示的な呼び出しを除く）、まだjson全体が "R console"にダンプされています。これは私たちのモジュールで重大なパフォーマンス上の問題を引き起こしています。私は問題を追跡するためにあなたの助けが必要です。ここで

が（原因企業ポリシーに、私は全体のソースコードを投稿することができないと私は多くの情報を与えていないことをお詫び申し上げます）Rファイルのほんの一部です

#run time/online time series models 
LAST_TIME_ID <- DATA[nrow(DATA),id]; 
LAST_TIME_ID <- strptime(LAST_TIME_ID,format="%d-%m-%Y %H:%M"); 

#timestamp tag computation using frequency 
FREQUENCY_VEC <- rep(TIMESTAMP_FREQUENCY*60,PREDICTION_NUMBER); 
FREQUENCY_VEC <- cumsum(FREQUENCY_VEC); 
TIMESTAMP_TAGS <- LAST_TIME_ID + FREQUENCY_VEC; 
TIMESTAMP_TAGS <- format(strptime(TIMESTAMP_TAGS,format="%Y-%m-%d %H:%M"),format="%d-%m-%Y %H:%M"); 

#prepare the prediction points data per tag into table format 
PREDICTION_DATA <- NULL; 
startTime <- Sys.time(); 
for (tag_index in 1:length(MODEL[,tag_id])) { 
    TEMP <- data.table(id=as.character(TIMESTAMP_TAGS),tag_id = MODEL[tag_index,tag_id], prediction = as.vector(MODEL[,Forecast][[tag_index]])); 
    PREDICTION_DATA <- data.table(rbind(PREDICTION_DATA,TEMP)); 
    rm(TEMP); 
}; 
endTime <- Sys.time(); 
print(paste("seconds consumed (prediction points data per tag into TEMP): ",(endTime-startTime)/1000)); 


#OUTPUT <- dcast(PREDICTION_DATA,id~tag_id); #into output 
OUTPUT <- PREDICTION_DATA; 

#compute final output in json format 
js_object <- toJSON(OUTPUT,asIs = TRUE);  
js_object; 

私はあなたのコードの残りの部分を確保することができます同じように見えます（つまり、プリントはありません）。私はJava（1.8）を使ってWindows 8上でRServe（REngine.jar）を使ってRコードを実行しています。

アイデアや手がかりがあれば幸いです。

Answer 1

あなたが実行するちょうだいの最後の行： js_object;

は、コンソールに変数を出力します。

変数に何も割り当てられていない場合は、このような種類のステートメントを削除します。

Answer 2

ファイル名の末尾にjs_objectと入力すると、そのオブジェクトが呼び出され、Rがその内容をコンソールに出力しています。あなたがする必要があるのは、印刷を中止すべきであることを取り除くことだけです。