ocean_shadow <- nabular(oceanbuoys)
test_that("shadow_long returns the right dimensions and names etc", {
expect_snapshot(
shadow_long(ocean_shadow)
)
})
test_that("shadow_long works gives the classes with function value transform", {
expect_snapshot(
shadow_long(ocean_shadow,
fn_value_transform = as.numeric)
)
})
test_that("shadow_long returns right dimensions, names, etc when filtered", {
expect_snapshot(
shadow_long(ocean_shadow, air_temp_c, humidity)
)
})
test_that("shadow_long returns right dimensions, names, etc when filtered with function value transform", {
expect_snapshot(
shadow_long(ocean_shadow,
air_temp_c,
humidity,
fn_value_transform = as.numeric
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.