[chronojump] Fixed maximumIsometricForce unicode title

[Xavier de Blas <xaviblas src gnome org>]

commit 59e7ce1ae696c3ae3b7e543c9230ebde4a3cded9
Author: Xavier de Blas <xaviblas gmail com>
Date:   Fri Nov 22 10:19:52 2019 +0100

    Fixed maximumIsometricForce unicode title

 r-scripts/maximumIsometricForce.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index dd19d5b7..3d850894 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -234,7 +234,7 @@ drawDynamicsFromLoadCell <- function(
                      type="l", xlab="Time[s]", ylab="Force[N]",
                      xlim = xlimits, ylim=c(0, yHeight),
                      #main = dynamics$nameOfFile,
-                    main = op$title,
+                    main = paste(parse(text = paste0("'", op$title, "'"))), #process unicode, needed paste 
because its an expression. See graph.R
                     yaxs= "i", xaxs = "i")
                 xmin = xlimits[1]
                 xmax = xlimits[2]
@@ -248,7 +248,7 @@ drawDynamicsFromLoadCell <- function(
                      xlim = c(xmin, xmax),
                      ylim=c(0, yHeight),
                      #main = dynamics$nameOfFile,
-                    main = op$title,
+                    main = paste(parse(text = paste0("'", op$title, "'"))), #process unicode, needed paste 
because its an expression. See graph.R
                     yaxs= "i", xaxs = "i")
         }