Handle the case when a quosure is the default aes (from_theme())

[yutannihilation]

tidyverse/ggplot2#5833

Error message:

Error in `map2()`:
ℹ In index: 1.
Caused by error in `aes_param_name %in% names(non_null_default_aes) && is.na(non_null_default_aes[[aes_param_name]])`:
! 'length = 2' in coercion to 'logical(1)'
Run `rlang::last_trace()` to see where the error occurred.
Warning message:
In is.na(non_null_default_aes[[aes_param_name]]) :
  is.na() applied to non-(list or vector) of type 'language'

Code:

gghighlight/R/gghighlight.R

Lines 443 to 447 in f006c02

	# 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]])) {
	return(NA)
	}

Browse[1]> str(non_null_default_aes)
List of 6
 $ shape : language ~from_theme(pointshape)
  ..- attr(*, ".Environment")=<environment: namespace:ggplot2> 
 $ colour: language ~from_theme(ink)
  ..- attr(*, ".Environment")=<environment: namespace:ggplot2> 
 $ size  : language ~from_theme(pointsize)
  ..- attr(*, ".Environment")=<environment: namespace:ggplot2> 
 $ fill  : logi NA
 $ alpha : logi NA
 $ stroke: num 0.5
 - attr(*, "class")= chr "uneval"