[chronojump] Less debug messages from R

[Xavier de Blas <xaviblas src gnome org>]

commit 8689f2419095ce515d4a73622e46b5942b20738a
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Aug 3 01:05:23 2015 +0200

    Less debug messages from R

 encoder/call_graph.R |    2 +-
 encoder/capture.R    |    2 +-
 encoder/graph.R      |    6 +++---
 encoder/util.R       |    6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)
---
diff --git a/encoder/call_graph.R b/encoder/call_graph.R
index 54f81b9..7779edd 100644
--- a/encoder/call_graph.R
+++ b/encoder/call_graph.R
@@ -75,6 +75,6 @@ while(TRUE) {
        if(input[1] == "Q")
                quit("no")
                        
-       write("received a continue signal", stderr())
+       write("call_graph.R received a continue signal", stderr())
        options <- scan(optionsFile, comment.char="#", what=character(), sep="\n")
 }
diff --git a/encoder/capture.R b/encoder/capture.R
index 2cbba6f..3be5434 100644
--- a/encoder/capture.R
+++ b/encoder/capture.R
@@ -141,7 +141,7 @@ doProcess <- function(options)
                #if should continue with another capture
                #then read options again
                while(input[1] == "C") {
-                       write("received a continue signal", stderr())
+                       write("capture.R received a continue signal", stderr())
                        
                        options <- scan(optionsFile, comment.char="#", what=character(), sep="\n")
                        op <- assignOptions(options)
diff --git a/encoder/graph.R b/encoder/graph.R
index 621ba37..564445d 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -2937,10 +2937,10 @@ doProcess <- function(options)
                if(op$Analysis == "curves" || writeCurves) {
                        #this columns are going to be removed from paf:
 
-                       write("paf and pafCurves", stderr())
-                       write(paf$meanSpeed, stderr())
+                       #write("paf and pafCurves", stderr())
+                       #write(paf$meanSpeed, stderr())
                        pafCurves <- subset( paf, select = -c(mass, massBody, massExtra, inertiaMomentum) )
-                       write(pafCurves$meanSpeed, stderr())
+                       #write(pafCurves$meanSpeed, stderr())
 
 
                        if(singleFile)
diff --git a/encoder/util.R b/encoder/util.R
index fd62e56..87d4f35 100644
--- a/encoder/util.R
+++ b/encoder/util.R
@@ -492,9 +492,9 @@ kinematicsF <- function(displacement, massBody, massExtra, exercisePercentBodyWe
 
        #print(c("kinematicsF start end",start,end))
                        
-       write("kinematicsF speed length and mean,", stderr())
-       write(length(speed$y[start:end]), stderr())
-       write(mean(speed$y[start:end]), stderr())
+       #write("kinematicsF speed length and mean,", stderr())
+       #write(length(speed$y[start:end]), stderr())
+       #write(mean(speed$y[start:end]), stderr())
 
        return(list(
                    speedy = speed$y[start:end],