[chronojump] RunEncoder exports caring for decimalchar and decimal separator

[Xavier de Blas <xaviblas src gnome org>]

commit e8f759753cf911e7e6584e8dc59d388073e3ac10
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Mar 4 14:06:01 2021 +0100

    RunEncoder exports caring for decimalchar and decimal separator

 r-scripts/sprintEncoder.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index ff91026e..35c9742b 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -820,7 +820,10 @@ start <- function(op)
 
        #write the data frame
        #na="" to not print NA on empty comments
-        write.csv2(exportDF, file = paste(tempPath, "/sprintResults.csv", sep = ""), row.names = FALSE, 
na="")
+       if(op$decimalCharAtExport == ".")
+               write.csv(exportDF, file = paste(tempPath, "/sprintResults.csv", sep = ""), row.names = 
FALSE, na="")
+       else if(op$decimalCharAtExport == ",")
+               write.csv2(exportDF, file = paste(tempPath, "/sprintResults.csv", sep = ""), row.names = 
FALSE, na="")
 }
 
 start(op)