test_that("sfind treats character numeric input as numeric", {
expect_equal(nrow(sfind(260, list = "GW")), 1L)
expect_equal(nrow(sfind("260", list = "GW")), 1L)
expect_equal(
sfind("260", list = "GW"),
sfind(260, list = "GW")
)
})
test_that("query capitalization does not matter", {
expect_equal(
sfind("Vietnam", list = "GW"),
sfind("vietnam", list = "GW")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.