make.tiebreaker takes y value of closest x when constant

Author: tdhock

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: directlabels
 Maintainer: Toby Dylan Hocking <[email protected]>
 Author: Toby Dylan Hocking
-Version: 2024.1.21
+Version: 2024.4.16
 BugReports: https://github.com/tdhock/directlabels/issues
 License: GPL-3
 Title: Direct Labels for Multicolor Plots

NEWS

@@ -1,3 +1,7 @@
+Changes in version 2024.4.16
+
+- fix make.tiebreaker issue with constant data.
+
 Changes in version 2024.1.21
 
 - fix legends2hide issue with ggplot2 3.5.0.

R/utility.function.R

@@ -941,7 +941,7 @@ make.tiebreaker <- function(x.var,tiebreak.var){
     }
     xvals <- xvals[order(abs(xvals-x))]
     group.dfs <- split(orig,orig$groups)
-    m <- do.call(cbind,lapply(d$groups,function(g){
+    glist <- lapply(d$groups,function(g){
       df <- group.dfs[[as.character(g)]]
       group.x <- df[,x.var]
       group.y <- df[,tiebreak.var]
@@ -957,9 +957,12 @@ make.tiebreaker <- function(x.var,tiebreak.var){
         ## this is required to get a good ordering in some cases.
         approx(group.x, group.y, xvals, rule=2)$y
       }else{
-        group.y
+        iord <- order(abs(group.x-x))
+        closest <- iord[1]
+        rep(group.y[closest], length(xvals))
       }
-    }))
+    })
+    m <- do.call(cbind,glist)
     ## useful for debugging:
     ##print(m)
     L <- lapply(1:nrow(m),function(i)m[i,])