Interpret NULL discrete limits as NA, fixes #2666

rstudio · Oct 16, 2019 · b579b85 · b579b85
1 parent ed739f9
commit b579b85
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/image-interact.R b/R/image-interact.R
@@ -419,7 +419,10 @@ within_brush <- function(vals, brush, var = "x") {
 # it allows you to control ordering and possible values of a discrete
 # positional scale (#2410)
 asNumber <- function(x, levels = NULL) {
-  if (length(levels)) return(match(x, levels))
+  if (length(levels)) {
+    levels <- lapply(levels, function(x) x %OR% NA)
+    return(match(x, levels))
+  }
   if (is.character(x)) x <- as.factor(x)
   if (is.factor(x)) x <- as.integer(x)
   as.numeric(x)