fix sf graticule styling

Author: cpsievert

R/ggplotly.R

@@ -622,11 +622,7 @@ gg2list <- function(p, width = NULL, height = NULL,
           d <- expand(rng$graticule)
           d$x <- scales::rescale(d$x, rng$x_range, from = c(0, 1))
           d$y <- scales::rescale(d$y, rng$y_range, from = c(0, 1))
-          params <- list(
-            colour = theme$panel.grid.major$colour,
-            size = theme$panel.grid.major$size,
-            linetype = theme$panel.grid.major$linetype
-          )
+          params <- with(panelGrid, list(colour = colour, size = size, linetype = linetype))
           grill <- geom2trace.GeomPath(d, params)
           grill$hoverinfo <- "none"
           grill$showlegend <- FALSE

tests/testthat/test-ggplot-sf.R

@@ -33,7 +33,11 @@ test_that("geom_sf() polygons with fill/text.", {
   expect_true(
     all(unlist(lapply(l$data, "[[", "hoverinfo")) %in% c("none", "text"))
   )
-  unlist(lapply(l$data, "[[", "text"))
+  # graticule styling should inherit from panel.grid.major
+  expect_equivalent(
+    l$data[[1]]$line$color, 
+    toRGB(ggplot2::calc_element("panel.grid.major", ggplot2::theme_gray())[["colour"]])
+  )
 })