avoid calling sf functions unless geom_sf() is used

cpsievert · cpsievert · commit 19efebc98f34 · 2017-12-06T10:01:36.000-06:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -716,8 +716,10 @@ gg2list <- function(p, width = NULL, height = NULL,
         axisObj$scaleanchor <- anchor
         ratio <- p$coordinates$ratio %||% 1
         # a la CoordSf$aspect
-        if (isTRUE(sf::st_is_longlat(rng$crs))) {
-          ratio <- cos(mean(rng$y_range) * pi/180)
+        if (inherits(p$coordinates, "CoordSf")) {
+          if (isTRUE(sf::st_is_longlat(rng$crs))) {
+            ratio <- cos(mean(rng$y_range) * pi/180)
+          }
         }
         axisObj$scaleratio <- if (xy == "y") ratio else 1 / ratio
       }

Original file line number	Diff line number	Diff line change
`@@ -716,8 +716,10 @@ gg2list <- function(p, width = NULL, height = NULL,`
`716`	`716`	`axisObj$scaleanchor <- anchor`
`717`	`717`	`ratio <- p$coordinates$ratio %\|\|% 1`
`718`	`718`	`# a la CoordSf$aspect`
`719`		`- if (isTRUE(sf::st_is_longlat(rng$crs))) {`
`720`		`- ratio <- cos(mean(rng$y_range) * pi/180)`
	`719`	`+ if (inherits(p$coordinates, "CoordSf")) {`
	`720`	`+ if (isTRUE(sf::st_is_longlat(rng$crs))) {`
	`721`	`+ ratio <- cos(mean(rng$y_range) * pi/180)`
	`722`	`+ }`
`721`	`723`	`}`
`722`	`724`	`axisObj$scaleratio <- if (xy == "y") ratio else 1 / ratio`
`723`	`725`	`}`