context("inspect_mem")
# load in some example data
data("starwars", package = "dplyr")
data("band_instruments", package = "dplyr")
data("storms", package = "dplyr")
data(mtcars, airquality)
test_that("Output is a data frame", {
expect_is(inspect_mem(mtcars), "data.frame")
expect_is(inspect_mem(band_instruments), "data.frame")
expect_is(inspect_mem(starwars), "data.frame")
expect_is(inspect_mem(storms), "data.frame")
expect_is(inspect_mem(airquality), "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.