[chronojump] F-V multiple sessions Fixed. TODO: Discuss about the eliminated code

[Xavier Padullés <xpadulles src gnome org>]

commit a68c67d5ffa205675faa1276fa19fe782204634c
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Apr 15 17:31:31 2019 +0200

    F-V multiple sessions Fixed. TODO: Discuss about the eliminated code

 encoder/graph.R               | 13 ++++++-------
 encoder/pfvProfileEvolution.R |  6 ++++--
 2 files changed, 10 insertions(+), 9 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 076fa2a9..6ef6e0a7 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1810,7 +1810,6 @@ paintCrossVariables <- function (paf, varX, varY, option,
         }
         cexNums = 1
         adjHor = 0
-
         #if only one series
         if(length(unique(seriesName)) == 1) {
                 cexBalls = 1.8
@@ -2084,8 +2083,8 @@ paintCrossVariables <- function (paf, varX, varY, option,
                 #colBalls = "black"
                 uniqueColors=topo.colors(length(unique(seriesName)))
                 
-                #in x axis move a little every series to right in order to compare
-                seqX = seq(0,length(unique(seriesName))-1,by=1)-(length(unique(seriesName))-1)/2
+                # #in x axis move a little every series to right in order to compare
+                # seqX = seq(0,length(unique(seriesName))-1,by=1)-(length(unique(seriesName))-1)/2
                 
                 maxy <- max(y)
                 miny <- min(y)
@@ -2099,10 +2098,10 @@ paintCrossVariables <- function (paf, varX, varY, option,
                         
                         colBalls[thisSerie] = uniqueColors[i]
                         
-                        if(! dateAsX) {
-                                #in x axis move a little every series to right in order to compare
-                                x[thisSerie] = x[thisSerie] + (seqX[i]/5)
-                        }
+                        # if(! dateAsX) {
+                        #         #in x axis move a little every series to right in order to compare
+                        #         x[thisSerie] = x[thisSerie] + (seqX[i]/5)
+                        # }
                         
                         #find min/max Y on power
                         if(varY == "Power" && length(unique(x[thisSerie])) >= 3 && ! dateAsX) {
diff --git a/encoder/pfvProfileEvolution.R b/encoder/pfvProfileEvolution.R
index 880c9a9e..527d2737 100644
--- a/encoder/pfvProfileEvolution.R
+++ b/encoder/pfvProfileEvolution.R
@@ -171,7 +171,9 @@ pfvProfileDrawProfilesEvolution <- function(analyzeTable)
 pfvProfileExecute <- function(analyzeTable)
 {
        print("analyzeTable")
-       print(analyzeTable)
+       #print(analyzeTable[1:(length(analyzeTable[,1]) -3),])
+        print(analyzeTable)
 
-       pfvProfileDrawProfilesEvolution(analyzeTable)
+       #pfvProfileDrawProfilesEvolution(analyzeTable[1:(length(analyzeTable[,1]) -3),])
+        pfvProfileDrawProfilesEvolution(analyzeTable)
 }