histoFile = system.file("extdata", "histos.xml.gz", package="aidar")
test_that("getFileInfo", {
info = getFileInfo(histoFile)
expect_equal( length(info$histogram1d$name), 2 )
expect_equal( info$histogram1d$name [[2]], "2" )
expect_equal( info$histogram1d$title [[2]], "Example histogram 2 (flat)" )
expect_equal( info$histogram1d$entries[[1]], "984" )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.