Close #2357. In some cases, decor has min/max instead of value. In that case, treat max like value

Author: cpsievert

R/ggplotly.R

@@ -1421,6 +1421,7 @@ gdef2trace <- function(gdef, theme, gglayout) {
     # N.B. ggplot2 >v3.4.2 (specifically #4879) renamed bar to decor and also 
     # started returning normalized values for the key field
     decor <- gdef$decor %||% gdef$bar
+    decor$value <- decor$value %||% decor$max
     rng <- range(decor$value)
     decor$value <- scales::rescale(decor$value, from = rng)
     if (!"decor" %in% names(gdef)) {

tests/testthat/test-ggplot-contour.R

@@ -12,4 +12,15 @@ test_that("geom_contour is translated to a path", {
   expect_identical(L$data[[1]]$mode, "lines")
 })
 
-
+test_that("raster/contour works with scale_fill_binned", {
+  xy_grid <- expand.grid(ps=seq(-1,3, length=100),
+    trs=seq(-1,3,length=100))
+  xy_grid$ptl <-  xy_grid$ps^2 + xy_grid$trs^2
+  
+  gg <- ggplot(xy_grid) +
+    geom_raster(aes(y=ps,x=trs,fill=ptl), interpolate = TRUE) +
+    geom_contour(aes(y=ps,x=trs,z=ptl), breaks = c(2,4,6,8,10), color='black') +
+    scale_fill_binned(low = 'red', high = 'green', breaks = c(2,4,6,8,10))
+  
+  expect_doppelganger_built(gg, "raster-contour-binned")
+})