test_that("vec_cbind returns a tidytable", {
new_df <- vec_cbind(data.frame(x = 1:3), tidytable(y = "foo"))
expect_true(is_tidytable(new_df))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.