test_that("add_area() works", {
data(wind)
p <- plot_ly(wind, r = ~r, theta = ~t) %>%
add_area(color = ~nms) %>%
layout(
polar = list(
radialaxis = list(ticksuffix = "%"),
angularaxis = list(rotation = 90)
)
)
expect_doppelganger_built(p, "add-area")
})
Generated by dwww version 1.15 on Fri Jun 21 22:09:33 CEST 2024.