[chronojump] sprintEncoder 5m segments no more hardcoded

[Xavier de Blas <xaviblas src gnome org>]

commit b52d884e7008a971a8f1b2a7b373ca1fba6ff107
Author: Xavier de Blas <xaviblas gmail com>
Date:   Fri Oct 2 17:27:40 2020 +0200

    sprintEncoder 5m segments no more hardcoded

 r-scripts/sprintEncoder.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index d6a62782..c840d9e4 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -313,8 +313,9 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics,
         #Plotting rawSpeed
         ylimits = c(0, sprintRawDynamics$rawVmax*1.05)
         xlimits =c(0, sprintRawDynamics$time[sprintRawDynamics$endSample])
-        #Calculing 5m lap times
-        splitPosition = min(sprintRawDynamics$testLength, 5)
+        #Calculing 5m lap times, this will be configurable as an exercise
+       segmentMeters = 5
+        splitPosition = min(sprintRawDynamics$testLength, segmentMeters)
         splitTime = 
interpolateXAtY(sprintRawDynamics$time[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
                                   
sprintRawDynamics$rawPosition[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
                                   splitPosition)
@@ -322,9 +323,9 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics,
         meanForce =getMeanValue(sprintRawDynamics$time, sprintRawDynamics$rawForce, 
sprintRawDynamics$time[sprintRawDynamics$startSample], splitTime)
         meanPower =getMeanValue(sprintRawDynamics$time, sprintRawDynamics$rawPower, 
sprintRawDynamics$time[sprintRawDynamics$startSample], splitTime)
 
-        while(splitPosition[length(splitPosition)] + 5 < sprintRawDynamics$testLength)
+        while(splitPosition[length(splitPosition)] + segmentMeters < sprintRawDynamics$testLength)
         {
-                splitPosition = c(splitPosition, splitPosition[length(splitPosition)] + 5)
+                splitPosition = c(splitPosition, splitPosition[length(splitPosition)] + segmentMeters)
                 splitTime = c(splitTime, 
interpolateXAtY(sprintRawDynamics$time[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
                                                      
sprintRawDynamics$rawPosition[sprintRawDynamics$startSample:sprintRawDynamics$endSample],
                                                      splitPosition[length(splitPosition)]))