[chronojump] pvfProfile prepared to function with photocells and raceAnalyzer

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

commit 057df510b7b7cf199536a88a06e713cb76e1ebba
Author: Xavier Padullés <testing chronojump org>
Date:   Tue Jan 19 18:45:52 2021 +0100

    pvfProfile prepared to function with photocells and raceAnalyzer

 encoder/pfvProfileEvolution.R | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)
---
diff --git a/encoder/pfvProfileEvolution.R b/encoder/pfvProfileEvolution.R
index e7fe9d58..3bbd9b4b 100644
--- a/encoder/pfvProfileEvolution.R
+++ b/encoder/pfvProfileEvolution.R
@@ -77,9 +77,8 @@ pfvProfileGetAnalysisProfiles <- function(analyzeTable)
 
 #In the plane V0-F0, each point corresponds to a profile.
 #Each profile has unique Pmax. Each isopotential line corresponds to the points that have the same Pmax
-pfvProfileDrawProfilesEvolution <- function(analyzeTable)
+pfvProfileDrawProfilesEvolution <- function(profiles)
 {
-        profiles = pfvProfileGetAnalysisProfiles(analyzeTable)
         
         #Clean the data and discard the wrong profiles
         correctProfiles = which(profiles$f0 > 0 & profiles$v0 > 0)
@@ -179,6 +178,6 @@ pfvProfileExecute <- function(analyzeTable)
         analyzeTable = analyzeTable[which(analyzeTable$date != ""), ]
         print(analyzeTable)
         
-       #pfvProfileDrawProfilesEvolution(analyzeTable[1:(length(analyzeTable[,1]) -3),])
-        pfvProfileDrawProfilesEvolution(analyzeTable)
+        profiles = pfvProfileGetAnalysisProfiles(analyzeTable)
+        pfvProfileDrawProfilesEvolution(profiles)
 }