[chronojump] Disabled legend translation on paintCrossVariables (problematic on some Wins and OSX)



commit 5f0379296010f961d43cc35a29a37efdeac6f877
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Mar 1 14:35:20 2016 +0100

    Disabled legend translation on paintCrossVariables (problematic on some Wins and OSX)

 encoder/graph.R |   17 +++++++++++------
 1 files changed, 11 insertions(+), 6 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 53970ac..348da23 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1780,12 +1780,17 @@ paintCrossVariables <- function (paf, varX, varY, option, isAlone, title, single
                #don't write legend on 'speed,power / load' because it doesn't fits with the formulas and 
regressions
                if(isAlone == "ALONE") {
                        #show legend
-                       legendText = c(translateToPrint("concentric"),
-                                      translateToPrint("eccentric"),
-                                      
paste(translateToPrint("eccentric"),translateToPrint("concentric"),sep="-"),
-                                      translateToPrint("L"),
-                                      translateToPrint("R")
-                                      )
+                       
+                       #disabled translation because some OSX cannot show accents on this expression,
+                       #and some parallels on this OSX hang when try to show this
+                       #legendText = c(translateToPrint("concentric"),
+                       #              translateToPrint("eccentric"),
+                       #              
paste(translateToPrint("eccentric"),translateToPrint("concentric"),sep="-"),
+                       #              translateToPrint("L"),
+                       #              translateToPrint("R")
+                       #              )
+                       legendText = c("concentric", "eccentric", paste("eccentric","concentric",sep="-"), 
"L", "R")
+                       
                        rng=par("usr")
                        lg = legend(rng[1],rng[4], 
                                    legend=legendText, pch=c(24,25,21,3,4), col="black", pt.bg="white",


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]