context("component test for IngestData")
test_that("IngestData implements its interface method signatures", {
expect_class(db <- IngestData$new(), "Ingest")
expect_a_non_empty_data.frame(db$historical_data)
expect_a_non_empty_data.frame(db$new_data)
expect_a_non_empty_data.frame(db$submission_format)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.