test_that("sizemode is always respected", { # https://github.com/ropensci/plotly/issues/1133 p <- plot_ly(mtcars, x = ~wt, y = ~wt, size = ~wt, color = ~as.factor(carb)) d <- expect_doppelganger_built(p, "sizemode")$data expect_length(d, length(unique(mtcars$carb))) for (i in seq_along(d)) { expect_true(d[[i]]$type == "scatter") expect_true(d[[i]]$mode == "markers") expect_true(d[[i]]$marker$sizemode == "area") # Make sure size is always translated as an array in this case, because plotly.js # https://github.com/plotly/plotly.js/issues/2735 s <- d[[i]]$marker$size if (length(s) == 1) expect_is(s, "AsIs") } }) 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_length(d[[1]]$marker$size, 10) expect_true(all(d[[1]]$marker$size == 30)) })
Generated by dwww version 1.15 on Fri Jun 21 11:49:05 CEST 2024.