tests/unitizer/car.R

library(ggbg)
library(ggplot2)

unitizer_sect("Car", {
  p <- ggplot(
    geom.car.data, aes(x=x, y=y, length=length, width=width, fill=label)
  ) + geom_car()
  unclass(ggplot_build(p)$plot)
})
brodieG/ggbg documentation built on May 16, 2019, 7:44 a.m.