df <- data.frame(x = c(NA, 1:4),
y = c(NA, NA, 1:3))
nab <- nabular(df)
nabu <- unbind_shadow(nab)
test_that("unbind_shadow returns tibble", {
expect_s3_class(nabu, c("tbl_df"))
})
test_that("unbind_shadow returns right dimensions", {
expect_equal(nrow(nabu), nrow(df))
expect_equal(ncol(nabu), ncol(df))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.