tests/testthat/test-gg-pie.R

test_that("Pie plot", {
  gg_pie(data = iris, dic = NULL, vars = c("species", "petal_width"))

  data <- lubridate::lakers
  gg_pie(data = data, dic = NULL, vars = c("team"), agg = "count")
  gg_pie_Cat(iris)
  gg_pie_CatNum(iris)
})
randommonkey/ggmagic documentation built on Oct. 24, 2023, 4:16 p.m.