Nothing
test_that("gt3x parsers yield convergent output", {
## Read gt3x file
file <- system.file(
"extdata", "example.gt3x", package = "AGread"
)
testthat::expect_true(legacy_dev_compare(file))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.