test_that("lookup entity", {
item <- lookup("test", "test-item")
expect_is(item$integer_prop, "integer")
expect_is(item$double_prop, "numeric")
expect_is(item$boolean_prop, "logical")
expect_is(item$string_prop, "character")
expect_is(item$timestamp_prop, "POSIXct")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.