[chronojump] RunEncoder export added image count on CSV when needed

[Xavier de Blas <xaviblas src gnome org>]

commit b5e3728f7943f6b66ac4be810ccbf6168ee3b0eb
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Mar 4 13:24:45 2021 +0100

    RunEncoder export added image count on CSV when needed

 r-scripts/sprintEncoder.R | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index a52032f7..ff91026e 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -799,8 +799,15 @@ start <- function(op)
                        for(j in 1:length(exportRow))
                                exportRowDF = cbind (exportRowDF, exportRow[j])
                        exportRowDF = cbind (exportRowDF, dataFiles$comments[i])
+                       if(op$includeImagesOnExport)
+                               exportRowDF = cbind(exportRowDF, paste(i, ".png", sep=""))
+
+                       #write the correct names of the row dataframe
+                       namesDF = c("Title","Datetime",names,"comments")
+                       if(op$includeImagesOnExport)
+                               namesDF = c(namesDF, "Image")
+                       colnames(exportRowDF) = namesDF
 
-                       colnames(exportRowDF) = c("title","datetime",names,"comments") #write the correct 
names of the row dataframe
                        exportDF <- rbind (exportDF, exportRowDF) #rbind with exportDF
                }