Try to solve the issue with 'axis.text$cex' in triangle.traject

adeverse · Mar 7, 2024 · 5f807d0 · 5f807d0
1 parent 84f2ac0
commit 5f807d0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/ADEg.Tr.R b/R/ADEg.Tr.R
@@ -92,10 +92,11 @@ setMethod(
                            lty = object@adeg.par$pgrid$lty)
 
         ## draw axes
+        axis.text <- modifyList(as.list(object@trellis.par$axis.text), trellis.par.get()$axis.text, keep.null = TRUE)
         axis.text2 <- list()
-        axis.text <- trellis.par.get("axis.text")
         axis.text2[c("cex", "col")] <- object@adeg.par$pgrid$text[c("cex", "col")]
-        division <- object@s.misc$lgrid$posgrid[-c(1, length(object@s.misc$lgrid$posgrid))]
+        # never used: division <- object@s.misc$lgrid$posgrid[-c(1, length(object@s.misc$lgrid$posgrid))]
+
         pos <- c(1, 3, 3)
         srt <- c(0, 60, -60)
 

diff --git a/man/triangle.traject.Rd b/man/triangle.traject.Rd
@@ -83,7 +83,7 @@ com <- as.factor(rep(c("Gig", "Lun", "Gan", "Mat"), c(3, 3, 3, 3)))
 rec <- as.factor(rep(c("68", "75", "82"), 4))
 row.names(exo1) <- paste(com, rec, sep = "")
 tri1 <- triangle.traject(exo1, fac = com, showposition=FALSE, 
- pgrid.draw = FALSE, col = TRUE, axis.text = list(col = "white"))
+ pgrid.draw = FALSE, col = TRUE, axis.text = list(cex = 0))
 }
 
 \keyword{hplot}