[chronojump] Fixed RaceAnalyzer export when no triggers

[Xavier de Blas <xaviblas src gnome org>]

commit 82868e9f40d4ab33e36325cb8a51ab810709bb15
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Mar 16 16:51:45 2021 +0100

    Fixed RaceAnalyzer export when no triggers

 r-scripts/sprintEncoder.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index 0fa2248b..42e46558 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -797,8 +797,9 @@ start <- function(op)
                exportRow = testEncoderCJ(as.vector(dataFiles$fullURL[i]), dataFiles$testLength[i], 
dataFiles$splitLength[i],
                                dataFiles$mass[i], dataFiles$personHeight[i], dataFiles$tempC[i],
                                dataFiles$device[i], dataFiles$title[i], dataFiles$datetime[i], op$startAccel,
-                               as.numeric(unlist(strsplit(dataFiles$triggersOn[i], "\\,"))),
-                               as.numeric(unlist(strsplit(dataFiles$triggersOff[i], "\\,")))
+                               as.numeric(unlist(strsplit(as.character(dataFiles$triggersOn[i]), "\\,"))), 
#as.character() because -1 (no triggers) is readed as a number and then the strsplit fails
+                               as.numeric(unlist(strsplit(as.character(dataFiles$triggersOff[i]), "\\,")))
+
                )
 
                if(! is.null(exportRow))