Handle non-primitive aes_default

yutannihilation · May 11, 2024 · fe57c5d · fe57c5d
1 parent f006c02
commit fe57c5d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/gghighlight.R b/R/gghighlight.R
@@ -442,7 +442,8 @@ get_default_aes_param <- function(aes_param_name, geom, mapping) {
 
   # if the geom has default value and is NA, use NA
   if (aes_param_name %in% names(non_null_default_aes) &&
-    is.na(non_null_default_aes[[aes_param_name]])) {
+    # is.na() cannot handle non primitive objects (e.g. a quosure)
+    rlang::is_na(non_null_default_aes[[aes_param_name]])) {
     return(NA)
   }