[chronojump] ForceSensor export. Fix too many open devices on R on catches

[Xavier de Blas <xaviblas src gnome org>]

commit cb0c5954ea1b52c0213c8c922e842e8d33293e06
Author: Xavier de Blas <xaviblas gmail com>
Date:   Wed Feb 10 13:21:10 2021 +0100

    ForceSensor export. Fix too many open devices on R on catches

 r-scripts/maximumIsometricForce.R | 1 +
 1 file changed, 1 insertion(+)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 3b06ce70..3d94eef2 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -1123,6 +1123,7 @@ if(op$singleOrMultiple == "TRUE")
                }, error = function(e) {
                        print("error on doProcess:")
                        print(message(e))
+                       endGraph() #close graph that is being done to not receive error: too many open devices
                })
 
                progressFilename = paste(progressFolder, "/", i, sep="")