context("read_mads")
test_that("Non-empty Data frame from read_mads", {
df <- read_mads("MADS-like.csv", "analyser")
expect_is(df, "data.frame")
expect_gt(length(df), 0)
expect_gt(nrow(df), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.