test_that("returns a list of 6 tables", {
MQCombined <- make_MQCombined(MQPathCombined = system.file("extdata/combined/",
package = "MQmetrics"))
tables <- ReportTables(MQCombined)
expect_equal(length(tables), 6)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.