Commit a68c67d5 authored by Xavier Padullés's avatar Xavier Padullés

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

parent b56c41e3
...@@ -1810,7 +1810,6 @@ paintCrossVariables <- function (paf, varX, varY, option, ...@@ -1810,7 +1810,6 @@ paintCrossVariables <- function (paf, varX, varY, option,
} }
cexNums = 1 cexNums = 1
adjHor = 0 adjHor = 0
#if only one series #if only one series
if(length(unique(seriesName)) == 1) { if(length(unique(seriesName)) == 1) {
cexBalls = 1.8 cexBalls = 1.8
...@@ -2084,8 +2083,8 @@ paintCrossVariables <- function (paf, varX, varY, option, ...@@ -2084,8 +2083,8 @@ paintCrossVariables <- function (paf, varX, varY, option,
#colBalls = "black" #colBalls = "black"
uniqueColors=topo.colors(length(unique(seriesName))) uniqueColors=topo.colors(length(unique(seriesName)))
#in x axis move a little every series to right in order to compare # #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 # seqX = seq(0,length(unique(seriesName))-1,by=1)-(length(unique(seriesName))-1)/2
maxy <- max(y) maxy <- max(y)
miny <- min(y) miny <- min(y)
...@@ -2099,10 +2098,10 @@ paintCrossVariables <- function (paf, varX, varY, option, ...@@ -2099,10 +2098,10 @@ paintCrossVariables <- function (paf, varX, varY, option,
colBalls[thisSerie] = uniqueColors[i] colBalls[thisSerie] = uniqueColors[i]
if(! dateAsX) { # if(! dateAsX) {
#in x axis move a little every series to right in order to compare # #in x axis move a little every series to right in order to compare
x[thisSerie] = x[thisSerie] + (seqX[i]/5) # x[thisSerie] = x[thisSerie] + (seqX[i]/5)
} # }
#find min/max Y on power #find min/max Y on power
if(varY == "Power" && length(unique(x[thisSerie])) >= 3 && ! dateAsX) { if(varY == "Power" && length(unique(x[thisSerie])) >= 3 && ! dateAsX) {
......
...@@ -171,7 +171,9 @@ pfvProfileDrawProfilesEvolution <- function(analyzeTable) ...@@ -171,7 +171,9 @@ pfvProfileDrawProfilesEvolution <- function(analyzeTable)
pfvProfileExecute <- function(analyzeTable) pfvProfileExecute <- function(analyzeTable)
{ {
print("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)
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment