[chronojump] ForceSensor export add datetime column

[Xavier de Blas <xaviblas src gnome org>]

commit 21e15f8bf0fbd87dcedeb71c1974985213e5f254
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Feb 18 11:02:55 2021 +0100

    ForceSensor export add datetime column

 r-scripts/maximumIsometricForce.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 20c05f60..b0f31337 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -1128,7 +1128,7 @@ start <- function(op)
                if(op$decimalCharAtExport == ",")
                        maxAvgWindowSecondsHeader = format(maxAvgWindowSecondsHeader, decimal.mark=",")
 
-               exportNames = c("Name","Exercise","MaxForceRaw",paste("Max AVG Force in", 
maxAvgWindowSecondsHeader, "s"),"Fmax")
+               exportNames = c("Name","Datetime","Exercise","MaxForceRaw",paste("Max AVG Force in", 
maxAvgWindowSecondsHeader, "s"),"Fmax")
                for(i in 1:length(op$drawRfdOptions))
                {
                        RFDoptions = readRFDOptions(op$drawRfdOptions[i])
@@ -1174,7 +1174,7 @@ start <- function(op)
                                exportModelVector = exportModelVectorOnFail #done here and not on the catch, 
because it didn't worked there
 
                        #mix strings and numbers directly in a data frame to not have numbers as text (and 
then cannot export with decimal , or .)
-                       exportSetDF = data.frame(dataFiles$title[i], dataFiles$exercise[i])
+                       exportSetDF = data.frame(dataFiles$title[i], fixDatetime(dataFiles$datetime[i]), 
dataFiles$exercise[i])
                        exportSetDF = cbind (exportSetDF, dataFiles$maxForceRaw[i])
                        exportSetDF = cbind (exportSetDF, dataFiles$maxAvgForceInWindow[i])
                        for(j in 1:length(exportModelVector))