X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=PrintRScript.py;h=e93501a185ea7ba8e2f6f36893238b4354a9ed1d;hp=7ec15407223202e75074cb1ea5bf196e5f26d489;hb=5d8a0a0e99d9075adc28f2525fe0aba8e14c2b0a;hpb=25061ca972d5be7a8ef3aa42276accc3761a3364

diff --git a/PrintRScript.py b/PrintRScript.py
index 7ec1540..e93501a 100644
--- a/PrintRScript.py
+++ b/PrintRScript.py
@@ -540,11 +540,23 @@ def barplot(table, rownames, colnames, rgraph, tmpgraph, intxt = False) :
             tominf <- which(di == -Inf)
             if (length(toinf)) {
                 di[toinf] <- NA
-                di[toinf] <- max(di, na.rm = TRUE) + 2
+                valmax <- max(di, na.rm = TRUE)
+                if (valmax <= 0) {
+                    valmax <- 2
+                } else {
+                    valmax <- valmax + 2
+                }
+                di[toinf] <- valmax
             }
             if (length(tominf)) {
                 di[tominf] <- NA
-                di[tominf] <- min(di, na.rm = TRUE) - 2
+                valmin <- min(di, na.rm = TRUE)
+                if (valmin >=0) {
+                    valmin <- -2
+                } else {
+                    valmin <- valmin -2
+                }
+                di[tominf] <- valmin
             }
             rownames(di)<- %s
             colnames(di) <- %s