tests/testthat/test-waffle.R

context("basic functionality")
test_that("we can do something", {

  expect_that(waffle(c(80, 30, 20, 10), rows=8), is_a("ggplot"))

})
d-qn/waffle-master documentation built on May 14, 2019, 3:04 p.m.