[chronojump] ForceSensor export care if a RFD is null

[Xavier de Blas <xaviblas src gnome org>]

commit ac162540f18e657c6272adaf95b93684948393f0
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Feb 8 13:21:55 2021 +0100

    ForceSensor export care if a RFD is null

 r-scripts/maximumIsometricForce.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 0e2b7f07..d848d749 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -637,7 +637,9 @@ drawDynamicsFromLoadCell <- function(titleFull, datetime,
             points(x = c(time1, time2), y = c(force1, force2), col = color)
             abline(a = intercept, b = RFD, lty = 2, col = color)
 
-           if(! is.null(RFD))
+           if(is.null(RFD))
+                   exportValues = c(exportValues, NA)
+           else
                    exportValues = c(exportValues, RFD)
        }