Nothing
# Setup -------------------------------------------------------------------
agd <- system.file(
"extdata", "example1sec.agd", package = "AGread"
)
csv <- system.file(
"extdata", "example1sec.csv", package = "AGread"
)
# Test --------------------------------------------------------------------
testthat::test_that("agd file reading produces expected output", {
save_agd <- function(code) {
path <- tempfile(fileext = ".rds")
saveRDS(code, path)
path
}
testthat::expect_snapshot_file(
save_agd(
read_agd(agd)
),
"read_agd.rds"
)
ref <- read_AG_counts(csv, header = TRUE)
test <- read_agd(agd)
test2 <- read_agd(agd, "settings")
test3 <- read_agd(agd, "data")
test4 <- read_agd(agd, "both")
format_test <- all(
identical(test, test3),
identical(test, test4$data),
identical(test2, test4$settings),
identical(class(test), class(ref)),
identical(class(test4$data), class(ref))
)
testthat::expect_true(format_test)
testthat::expect_equal(test, ref)
})
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.