tests/testthat/test-tile_plot.R

context("tile_plot")

test_that("tile_plot works", {

  g = tile_plot(mtcars, "cyl", "am", "1")
  expect_equal(g[["data"]],
               data.frame(x = c(4, 4, 6, 6, 8, 8),
                          y = c(0, 1, 0, 1, 0, 1),
                          z = c(3, 8, 4, 3, 12, 2)))

})
wkostelecki/ezplot documentation built on Feb. 1, 2024, 10:58 p.m.