Nothing
test_that("label_shadow returns character",{
expect_type(label_shadow(airquality), "character")
})
test_that("label_shadow adds the right number of elements",{
expect_equal(nrow(airquality), length(label_shadow(airquality)))
})
aq_shadow <- airquality %>% add_shadow(Ozone)
test_that("label_shadow contains 'Not Missing' and 'Missing'",{
expect_equal(unique(label_shadow(aq_shadow)),
c("Not Missing", "Missing"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.