Bugfix for guide logic added to accomodate new ggplot2 guide logic

cpsievert · cpsievert · commit a796406f6efe · 2024-01-06T15:08:07.000-06:00
Issue was silently introduced by #2315, but didn't become an issue until tidyverse/ggplot2@851233f
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -1005,7 +1005,7 @@ gg2list <- function(p, width = NULL, height = NULL,
     theme$legend.box.just <- theme$legend.box.just %||% c("center", "center")
     # scales -> data for guides
     gdefs <- if (inherits(plot$guides, "ggproto")) {
-      get_gdefs_ggproto(npscales$scales, theme, plot, layers, data)
+      get_gdefs_ggproto(npscales$scales, theme, plot, layers, layer_data)
     } else {
       get_gdefs(scales, theme, plot, layers)
     }

Original file line number	Diff line number	Diff line change
`@@ -1005,7 +1005,7 @@ gg2list <- function(p, width = NULL, height = NULL,`
`1005`	`1005`	`theme$legend.box.just <- theme$legend.box.just %\|\|% c("center", "center")`
`1006`	`1006`	`# scales -> data for guides`
`1007`	`1007`	`gdefs <- if (inherits(plot$guides, "ggproto")) {`
`1008`		`- get_gdefs_ggproto(npscales$scales, theme, plot, layers, data)`
	`1008`	`+ get_gdefs_ggproto(npscales$scales, theme, plot, layers, layer_data)`
`1009`	`1009`	`} else {`
`1010`	`1010`	`get_gdefs(scales, theme, plot, layers)`
`1011`	`1011`	`}`