df <- tibble::tribble(
~wind, ~temp,
-99, 45,
68, NA,
72, 25
)
dfs <- nabular(df)
dfs_are <- are_shade(dfs)
test_that("are_shade returns the correct values",{
expect_false(dfs_are[["wind"]])
expect_false(dfs_are[["temp"]])
expect_true(dfs_are[["wind_NA"]])
expect_true(dfs_are[["temp_NA"]])
})
test_that("any_shade returns the correct values",{
expect_false(any_shade(df))
expect_true(any_shade(dfs))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.