Fix partial match in deprecated guide arguments (#5603)

* fix partial match bug

* report more informative call

Author: teunbrand

R/guide-.R

@@ -51,7 +51,7 @@ new_guide <- function(..., available_aes = "any", super) {
   # Validate theme settings
   if (!is.null(params$theme)) {
     check_object(params$theme, is.theme, what = "a {.cls theme} object")
-    validate_theme(params$theme)
+    validate_theme(params$theme, call = caller_env())
     params$direction <- params$direction %||% params$theme$legend.direction
   }
 

R/guide-legend.R

@@ -781,7 +781,7 @@ deprecated_guide_args <- function(
     unit(x, default.unit)
   }
 
-  theme <- theme %||% list()
+  theme <- theme %||% theme()
 
   # Resolve straightforward arguments
   theme <- replace_null(

R/theme.R

@@ -529,13 +529,13 @@ is_theme_validate <- function(x) {
   isTRUE(validate %||% TRUE)
 }
 
-validate_theme <- function(theme, tree = get_element_tree()) {
+validate_theme <- function(theme, tree = get_element_tree(), call = caller_env()) {
   if (!is_theme_validate(theme)) {
     return()
   }
   mapply(
     validate_element, theme, names(theme),
-    MoreArgs = list(element_tree = tree)
+    MoreArgs = list(element_tree = tree, call = call)
   )
 }