[chronojump] Now "No curves found" works better on inertial



commit 28eac504c8a202df14e8c98745b7a6dd39df6f7e
Author: Xavier de Blas <xaviblas gmail com>
Date:   Fri Feb 26 18:57:49 2016 +0100

    Now "No curves found" works better on inertial

 encoder/graph.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index af1c948..fcde238 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -2102,7 +2102,7 @@ createPchVector <- function(ecconVector) {
 
 quitIfNoData <- function(n, curves, outputData1) {
        #if not found curves with this data, plot a "sorry" message and exit
-       if(n == 1 & curves[1,1] == 0 & curves[1,2] == 0) {
+       if(n == 1 & curves[1,1] == 0 & curves[1,2] <= 0) { #bad curves[1,2] on inertial returns -1
                plot(0,0,type="n",axes=F,xlab="",ylab="")
                text(x=0,y=0,translateToPrint("Sorry, no curves matched your criteria."),cex=1.5)
                dev.off()


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]