diff --git a/R/colors.R b/R/colors.R
index 130c04e30..9796424fb 100644
--- a/R/colors.R
+++ b/R/colors.R
@@ -94,7 +94,9 @@ getBins <- function(domain, x, bins, pretty) {
 }
 
 #' @details \code{colorBin} also maps continuous numeric data, but performs
-#'   binning based on value (see the \code{\link[base]{cut}} function).
+#'   binning based on value (see the \code{\link[base]{cut}} function). \code{colorBin}
+#'   defaults for the \code{\link[base]{cut}} function are \code{include.lowest
+#'   = TRUE} and \code{right = FALSE}.
 #' @param bins Either a numeric vector of two or more unique cut points or a
 #'   single number (greater than or equal to 2) giving the number of intervals
 #'   into which the domain values are to be cut.
@@ -103,10 +105,11 @@ getBins <- function(domain, x, bins, pretty) {
 #'   \code{pretty = TRUE}, the actual number of bins may not be the number of
 #'   bins you specified. When \code{pretty = FALSE}, \code{\link{seq}()} is used
 #'   to generate the bins and the breaks may not be "pretty".
+#' @param right parameter supplied to cut. See Details
 #' @rdname colorNumeric
 #' @export
 colorBin <- function(palette, domain, bins = 7, pretty = TRUE,
-  na.color = "#808080", alpha = FALSE, reverse = FALSE) {
+  na.color = "#808080", alpha = FALSE, reverse = FALSE, right = FALSE) {
 
   # domain usually needs to be explicitly provided (even if NULL) but not if
   # breaks are specified
@@ -126,7 +129,7 @@ colorBin <- function(palette, domain, bins = 7, pretty = TRUE,
       return(pf(x))
     }
     binsToUse <- getBins(domain, x, bins, pretty)
-    ints <- cut(x, binsToUse, labels = FALSE, include.lowest = TRUE, right = FALSE)
+    ints <- cut(x, binsToUse, labels = FALSE, include.lowest = TRUE, right = right)
     if (any(is.na(x) != is.na(ints)))
       warning("Some values were outside the color scale and will be treated as NA")
     colorFunc(ints)
@@ -143,7 +146,7 @@ colorBin <- function(palette, domain, bins = 7, pretty = TRUE,
 #' @export
 colorQuantile <- function(palette, domain, n = 4,
   probs = seq(0, 1, length.out = n + 1), na.color = "#808080", alpha = FALSE,
-  reverse = FALSE) {
+  reverse = FALSE, right = FALSE) {
 
   if (!is.null(domain)) {
     bins <- quantile(domain, probs, na.rm = TRUE, names = FALSE)
@@ -162,7 +165,7 @@ colorQuantile <- function(palette, domain, n = 4,
 
   withColorAttr("quantile", list(probs = probs, na.color = na.color), function(x) {
     binsToUse <- quantile(x, probs, na.rm = TRUE, names = FALSE)
-    ints <- cut(x, binsToUse, labels = FALSE, include.lowest = TRUE, right = FALSE)
+    ints <- cut(x, binsToUse, labels = FALSE, include.lowest = TRUE, right = right)
     if (any(is.na(x) != is.na(ints)))
       warning("Some values were outside the color scale and will be treated as NA")
     colorFunc(ints)
diff --git a/man/colorNumeric.Rd b/man/colorNumeric.Rd
index c11a17c08..ca46873cd 100644
--- a/man/colorNumeric.Rd
+++ b/man/colorNumeric.Rd
@@ -12,10 +12,10 @@ colorNumeric(palette, domain, na.color = "#808080", alpha = FALSE,
   reverse = FALSE)
 
 colorBin(palette, domain, bins = 7, pretty = TRUE, na.color = "#808080",
-  alpha = FALSE, reverse = FALSE)
+  alpha = FALSE, reverse = FALSE, right = FALSE)
 
 colorQuantile(palette, domain, n = 4, probs = seq(0, 1, length.out = n + 1),
-  na.color = "#808080", alpha = FALSE, reverse = FALSE)
+  na.color = "#808080", alpha = FALSE, reverse = FALSE, right = FALSE)
 
 colorFactor(palette, domain, levels = NULL, ordered = FALSE,
   na.color = "#808080", alpha = FALSE, reverse = FALSE)
@@ -57,6 +57,8 @@ the bins when the argument \code{bins} is a single number. When
 bins you specified. When \code{pretty = FALSE}, \code{\link{seq}()} is used
 to generate the bins and the breaks may not be "pretty".}
 
+\item{right}{parameter supplied to cut. See Details}
+
 \item{n}{Number of equal-size quantiles desired. For more precise control,
 use the \code{probs} argument instead.}
 
@@ -84,7 +86,9 @@ according to a given palette, which can be provided in a variety of formats.
 to an interpolated palette.
 
 \code{colorBin} also maps continuous numeric data, but performs
-  binning based on value (see the \code{\link[base]{cut}} function).
+  binning based on value (see the \code{\link[base]{cut}} function). \code{colorBin}
+  defaults for the \code{\link[base]{cut}} function are \code{include.lowest
+  = TRUE} and \code{right = FALSE}.
 
 \code{colorQuantile} similarly bins numeric data, but via the
   \code{\link[stats]{quantile}} function.