library(openWARData)
test_that("data are tbls", {
expect_is(MLBAM2012, "GameDayPlays")
expect_is(idTT, "tbl_df")
expect_is(idBP, "tbl_df")
expect_is(rWAR, "tbl_df")
expect_is(fWAR, "tbl_df")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.