From 5485ff0764eac315a2ca3ff46d82ad2af4783338 Mon Sep 17 00:00:00 2001
From: Ning Liu <ning.liu@adelaide.edu.au>
Date: Fri, 31 Jan 2025 17:19:54 +1030
Subject: [PATCH] fix a bug when max(x$max) is the same as one of the breaks

---
 R/trackplot.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/trackplot.R b/R/trackplot.R
index bc30308..8d2d331 100644
--- a/R/trackplot.R
+++ b/R/trackplot.R
@@ -638,7 +638,8 @@ track_plot = function(summary_list = NULL,
         }
         next
       }
-      cols = cut(x$max, breaks = c(0, 166, 277, 389, 500, 612, 723, 834, 945, max(x$max)), labels = c("#FFFFFF", "#F0F0F0", "#D9D9D9", "#BDBDBD", "#969696", "#737373", 
+      # add a buff to max(x$max) to avoid duplication.
+      cols = cut(x$max, breaks = c(0, 166, 277, 389, 500, 612, 723, 834, 945, max(x$max)+1e-8), labels = c("#FFFFFF", "#F0F0F0", "#D9D9D9", "#BDBDBD", "#969696", "#737373", 
                                                                                                       "#525252", "#252525", "#000000"))
       rect(xleft = x$start, ybottom = 0.01, xright = x$end, ytop = 0.99, col = as.character(cols), border = NA)