Nothing
context("nl_lookup")
test_that("id = weg-998023d41c562b2b433378161ea5670", {
skip_on_cran()
res <- nl_lookup(id = "weg-998023d41c562b2b433378161ea56704")
expect_true(res$id == "weg-998023d41c562b2b433378161ea56704")
})
test_that("Filter attributes - weergavenaam and type", {
skip_on_cran()
res <- nl_lookup(id = "weg-998023d41c562b2b433378161ea56704", fl = "weergavenaam, type")
n <- names(res)
expect_equal(names(res), c("type", "weergavenaam"))
})
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.