library(mlprepr)
context("Handling NAs")
test_that("NAs on complex dataset", {
dt <- function() test_dt_2(seed = 42)
expect_equal(nrow(encode_nas(dt())), nrow(dt()))
expect_equal(nrow(na.omit(encode_nas(dt()))), nrow(dt()))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.