context("Check select_samples() function")
apartmentsTest <- apartments_test
test_that("Output select samples",{
expect_is(select_sample(apartmentsTest), "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.