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

})

Try the waffle package in your browser

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

waffle documentation built on May 29, 2017, 11:05 p.m.