context("test pivot config")
path <- system.file("tests","data","testData.csv",package="rpivot")
testdata = read.csv(path,header=FALSE)
test_that("<Grand Total>", function() {
q. = pivot$query(testdata)
expect_false(is.null(q.$val(6)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.