use is_null

Author: teunbrand

R/scale-.R

@@ -1315,7 +1315,7 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,
     if (!is_null(pal_names)) {
       # if pal is named, limit the pal by the names first,
       # then limit the values by the pal
-      if (is.null(dim(pal))) {
+      if (is_null(dim(pal))) {
         pal[is.na(match(pal_names, limits))] <- na_value
       } else {
         vec_slice(pal, is.na(match(pal_names, limits))) <- na_value