mapped_discrete has resolution 1

Author: teunbrand

R/utilities-resolution.R

@@ -18,8 +18,10 @@
 #' resolution(c(2, 10, 20, 50))
 #' resolution(c(2L, 10L, 20L, 50L))
 resolution <- function(x, zero = TRUE) {
-  if (is.integer(x) || zero_range(range(x, na.rm = TRUE)))
+  if (is.integer(x) || is_mapped_discrete(x) ||
+      zero_range(range(x, na.rm = TRUE))) {
     return(1)
+  }
 
   x <- unique0(as.numeric(x))
   if (zero) {