From 382118f7f41b1e784b85b31b153b582cbfe96778 Mon Sep 17 00:00:00 2001 From: Hiroaki Yutani Date: Wed, 29 Jan 2020 18:36:16 +0900 Subject: [PATCH] Fix single value detection in has_flipped_aes() --- R/utilities.r | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/utilities.r b/R/utilities.r index 460d99636d..a910654047 100644 --- a/R/utilities.r +++ b/R/utilities.r @@ -592,10 +592,10 @@ has_flipped_aes <- function(data, params = list(), main_is_orthogonal = NA, return(y_is_int != main_is_continuous) } # Is one of the axes a single value - if (all(x == 1)) { + if (zero_range(range(x, na.rm = TRUE))) { return(main_is_continuous) } - if (all(y == 1)) { + if (zero_range(range(y, na.rm = TRUE))) { return(!main_is_continuous) } # If both are discrete like, which have most 0 or 1-spaced values