smaller cutoff for long labels

dicook · dicook · commit 061708a6ea31 · 2024-07-05T00:05:06.000+10:00
diff --git a/R/display-xy.r b/R/display-xy.r
@@ -320,7 +320,7 @@ draw_tour_axes <- function(proj, labels, limits=1, position="center",
         col = axis.col, lwd = axis.lwd)
   if (longlabels) {
     for (i in 1:length(labels)) {
-      if ((proj[i, 1]^2 + proj[i, 2]^2) < 0.3)
+      if ((proj[i, 1]^2 + proj[i, 2]^2) < 0.15)
         labels[i] <- ""
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -320,7 +320,7 @@ draw_tour_axes <- function(proj, labels, limits=1, position="center",`
`320`	`320`	`col = axis.col, lwd = axis.lwd)`
`321`	`321`	`if (longlabels) {`
`322`	`322`	`for (i in 1:length(labels)) {`
`323`		`- if ((proj[i, 1]^2 + proj[i, 2]^2) < 0.3)`
	`323`	`+ if ((proj[i, 1]^2 + proj[i, 2]^2) < 0.15)`
`324`	`324`	`labels[i] <- ""`
`325`	`325`	`}`
`326`	`326`	`}`