made test different from ggplotly

Author: 13bzhang

R/ggplotly.R

@@ -772,8 +772,8 @@ gg2list <- function(p) {
   # we make the size of the plot according to the specified ratio
   # note: we set the biggest dimension to 600
   if (!is.null(p$coordinates$ratio)) {
-    x_range <- range(p$data[[as.character(layer.aes$x.name)]], na.rm = TRUE)
-    y_range <- range(p$data[[as.character(layer.aes$y.name)]], na.rm = TRUE)
+    x_range <- range(built[[2]]$ranges[[1]]$x.major_source, na.rm = TRUE)
+    y_range <- range(built[[2]]$ranges[[1]]$y.major_source, na.rm = TRUE)
     yx_ratio <- (y_range[2] - y_range[1]) / (x_range[2] - x_range[1])
     if (yx_ratio > 1) {
       layout$height <- 600

tests/testthat/test-ggplot-coord.R

@@ -31,7 +31,7 @@ test_that("coord_fixed() is translated to the right height-width ratio", {
   x_range <- range(p$data$xval, na.rm = TRUE)
   y_range <- range(p$data$yval, na.rm = TRUE)
   yx_ratio <- (y_range[2] - y_range[1]) / (x_range[2] - x_range[1])
-  expect_identical(la$height/la$width, yx_ratio * p$coordinates$ratio)
+  expect_identical(la$height/la$width, round(yx_ratio) * p$coordinates$ratio)
 })
 
 # Equal scaling, with each 1 on the x axis the same length as y on x axis
@@ -46,5 +46,5 @@ test_that("coord_fixed() is translated to the right height-width ratio", {
   x_range <- range(p$data$xval, na.rm = TRUE)
   y_range <- range(p$data$yval, na.rm = TRUE)
   yx_ratio <- (y_range[2] - y_range[1]) / (x_range[2] - x_range[1])
-  expect_identical(la$height/la$width, yx_ratio * p$coordinates$ratio)
+  expect_identical(la$height/la$width, round(yx_ratio) * p$coordinates$ratio)
 })