Nothing
test_that("read_vpfiles() returns error on incorrect parameters", {
})
test_that("Read a vertical profile", {
vpfile <- system.file("extdata", "profile.h5", package = "bioRad")
expect_s3_class(read_vpfiles(vpfile), "vp")
expect_s3_class(read_vpfiles(vpfile), "vp")
})
test_that("Read multiple vertical profiles", {
vpfile <- system.file("extdata", "profile.h5", package = "bioRad")
# old function -> to vplist class; readvp.list was the function in the earlier
# releases (not the S3 based method dispatching)
expect_type(read_vpfiles(c(vpfile, vpfile)), "list")
# new function -> just a list of vp
expect_type(read_vpfiles(c(vpfile, vpfile)), "list")
# expect_error(is(read_vpfiles(c(vpfile, vpfile)), "vplist")) # to add at end of refactoring
expect_s3_class(read_vpfiles(c(vpfile, vpfile))[[1]], "vp")
expect_s3_class(read_vpfiles(c(vpfile, vpfile))[[2]], "vp")
})
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.