tests/testthat/test-plotly-area.R

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")
})

Try the plotly package in your browser

Any scripts or data that you put into this service are public.

plotly documentation built on May 29, 2024, 2:23 a.m.