[chronojump] RunEncoder Export (added comments)

[Xavier de Blas <xaviblas src gnome org>]

commit b8a7d1e195c466d739d1d0a117176540fdc27563
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Mar 4 12:26:40 2021 +0100

    RunEncoder Export (added comments)

 r-scripts/sprintEncoder.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index 7746248b..a852928d 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -798,8 +798,9 @@ start <- function(op)
                        #(to control if we print them as , or .)
                        for(j in 1:length(exportRow))
                                exportRowDF = cbind (exportRowDF, exportRow[j])
+                       exportRowDF = cbind (exportRowDF, dataFiles$comments[i])
 
-                       colnames(exportRowDF) = c("title","datetime",names) #write the correct names of the 
row dataframe
+                       colnames(exportRowDF) = c("title","datetime",names,"comments") #write the correct 
names of the row dataframe
                        exportDF <- rbind (exportDF, exportRowDF) #rbind with exportDF
                }