Nothing
# Make legacy objects
legacy_vp <- example_vp
legacy_vpts <- example_vpts
names(legacy_vp$data) <- sub("height", "HGHT", names(legacy_vp$data))
names(legacy_vpts$data) <- sub("height", "heights", names(legacy_vpts$data))
names(legacy_vpts$data) <- sub("dates", "datetime", names(legacy_vpts$data))
test_that("convert_legacy() returns error on incorrect parameters", {
expect_error(convert_legacy("not_a_object"))
})
test_that("convert_legacy() returns same object type", {
expect_s3_class(convert_legacy(legacy_vp), "vp")
expect_s3_class(convert_legacy(legacy_vpts), "vpts")
})
test_that("convert_legacy() renames certain data colnames", {
expect_identical(convert_legacy(legacy_vp), example_vp)
expect_identical(convert_legacy(legacy_vpts), example_vpts)
})
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.