Finally fix the bug in triangles when axis titles not displayed

adeverse · Mar 8, 2024 · f3700f8 · f3700f8
1 parent 5f807d0
commit f3700f8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/ADEg.Tr.R b/R/ADEg.Tr.R
@@ -121,7 +121,8 @@ setMethod(
             ptlab <- object@s.misc$lgrid[[i]][1, ] + (object@s.misc$lgrid[[i]][nn[i], ] - object@s.misc$lgrid[[i]][1, ]) / 2
 
             ## axis names
-            do.call("panel.text", args = c(list(labels = axisN[i], x = ptlab[1], y = ptlab[2], srt = srt[i], pos = pos[i]), axis.text))
+            if(axis.text$cex != 0)
+                do.call("panel.text", args = c(list(labels = axisN[i], x = ptlab[1], y = ptlab[2], srt = srt[i], pos = pos[i]), axis.text))
         }
         do.call("panel.text", c(list(x = orderCplot[, 1], y = orderCplot[, 2], lab = lcorners, pos = posCplot), axis.text2))
     })