From c2e953e25bcc37744b9ea88909fd699eaa3587d6 Mon Sep 17 00:00:00 2001 From: Nicolau Manubens Date: Wed, 15 Feb 2017 12:24:18 +0100 Subject: [PATCH] Bigfix in ColorBar. --- R/ColorBar.R | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/R/ColorBar.R b/R/ColorBar.R index eb01a9ae..4f92a2a1 100644 --- a/R/ColorBar.R +++ b/R/ColorBar.R @@ -77,9 +77,10 @@ ColorBar <- function(brks = NULL, cols = NULL, vertical = TRUE, brks <- seq(bar_limits[1], bar_limits[2], length.out = brks) } else if (is.null(var_limits)) { # bar_limits is defined - brks <- seq(bar_limits[1], bar_limits[2], length.out = brks) var_limits <- bar_limits - var_limits[1] <- var_limits[1] + .Machine$double.xmin + half_width <- 0.5 * (var_limits[2] - var_limits[1]) / (brks - 1) + brks <- seq(bar_limits[1], bar_limits[2], length.out = brks) + var_limits[1] <- var_limits[1] + half_width / 50 } else { # both bar_limits and var_limits are defined brks <- seq(bar_limits[1], bar_limits[2], length.out = brks) @@ -89,7 +90,8 @@ ColorBar <- function(brks = NULL, cols = NULL, vertical = TRUE, # brks is defined bar_limits <- c(head(brks, 1), tail(brks, 1)) var_limits <- bar_limits - var_limits[1] <- var_limits[1] + .Machine$double.xmin + half_width <- 0.5 * (var_limits[2] - var_limits[1]) / (length(brks) - 1) + var_limits[1] <- var_limits[1] + half_width / 50 } else { # brks and var_limits are defined bar_limits <- c(head(brks, 1), tail(brks, 1)) -- GitLab