test_that("raw data is pulled in and cleaned",{
db <- clean_raw_data()
expect_is(db, "data.table")
expect_is(db[,DATE],"Date")
expect_is(db[,LATITUDE],"numeric")
expect_is(db[,LONGITUDE],"numeric")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.