[chronojump] Fixed a problem on neuromuscular when all repetitions are concentric

[Xavier de Blas <xaviblas src gnome org>]

commit 5c7eb7637a1e0eafed84a73a9e1b9a1d0fbf772c
Author: Xavier de Blas <xaviblas gmail com>
Date:   Sun Sep 14 01:35:41 2014 +0200

    Fixed a problem on neuromuscular when all repetitions are concentric

 encoder/graph.R |   15 +++++++++++++++
 1 files changed, 15 insertions(+), 0 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 8c5d089..fb1a114 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -2294,9 +2294,24 @@ doProcess <- function(options) {
 
                newLines=0;
                countLines=1; #useful to know the correct ids of active curves
+               
+               #in neuromuscular, when sending individual repetititions,
+               #if all are concentric, csv has a header but not datarows
+               #it will be better to do not allow to plot graph from Chronojump,
+               #but meanwhile we can check like this:
+               if(length(inputMultiData[,1]) == 0) {
+                       plot(0,0,type="n",axes=F,xlab="",ylab="")
+                       text(x=0,y=0,translate("Not enough data."),
+                            cex=1.5)
+                       dev.off()
+                       write("", OutputData1)
+                       quit()
+               }
+                       
                for(i in 1:length(inputMultiData[,1])) { 
                        #plot only active curves
                        status = as.vector(inputMultiData$status[i])
+
                        if(status != "active") {
                                newLines=newLines-1; 
                                countLines=countLines+1;