Nothing
context("Check select_neighbours() function")
test_that("Output format - select_neighbours",{
expect_is(select_neighbours(apartmentsTest, new_apartment, n = 10), "data.frame")
expect_is(select_neighbours(apartmentsTest, new_apartment, n = NULL, frac = 0.001), "data.frame")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.