fix test expectations

Author: cpsievert

tests/testthat/test-plotly-sf.R

@@ -240,14 +240,14 @@ test_that("sizing constants", {
   p <- plot_mapbox(mn_pts, size = I(30)) %>% plotly_build()
   d <- p$x$data
   expect_length(d, 1)
-  expect_true(d[[1]]$marker$size == 30)
+  expect_true(all(d[[1]]$marker$size == 30))
   expect_true(d[[1]]$marker$sizemode == "area")
 
   # span controls marker.line.width
   p <- plot_ly(mn_pts, size = I(30), span = I(10), stroke = I("black")) %>% plotly_build()
   d <- p$x$data
   expect_length(d, 1)
-  expect_true(d[[1]]$marker$size == 30)
+  expect_true(all(d[[1]]$marker$size == 30))
   expect_true(d[[1]]$marker$sizemode == "area")
   expect_true(d[[1]]$marker$line$width == 10)
   expect_true(d[[1]]$marker$line$color == toRGB("black"))
@@ -256,7 +256,7 @@ test_that("sizing constants", {
   p <- plot_ly(mn_pts, size = I(20), error_x = list(value = 5)) %>% plotly_build()
   d <- p$x$data
   expect_length(d, 1)
-  expect_true(d[[1]]$marker$size == 20)
+  expect_true(all(d[[1]]$marker$size == 20))
   expect_true(d[[1]]$marker$sizemode == "area")
   expect_true(d[[1]]$error_x$value == 5)
   expect_true(d[[1]]$error_x$width == 20)

tests/testthat/test-plotly-size.R

@@ -22,5 +22,5 @@ test_that("sizemode is always respected", {
 test_that("size maps correctly to marker.size", {
   p <- plot_ly(x = 1:10, y = 1:10, size = I(30))
   d <- expect_doppelganger_built(p, "marker.size")$data
-  expect_equivalent(d[[1]]$marker$size, rep(30, 10))
+  expect_true(all(d[[1]]$marker$size == 30))
 })