context("autocomplete")
old_token <- set_token()
old_locale <- set_yelp_locale()
test_that(
"autocomplete() returns a list with 3 terms", {
actual <- autocomplete("del")
expect_type(actual, "list")
expect_length(actual, 3)
expect_equal(names(actual), c("terms", "businesses", "categories"))
expect_equal(colnames(actual$businesses), c("id", "name"))
expect_equal(
vapply(actual$businesses, class, character(1L), USE.NAMES = FALSE),
c("character", "character")
)
expect_equal(colnames(actual$categories), c("alias", "title"))
expect_equal(
vapply(actual$categories, class, character(1L), USE.NAMES = FALSE),
c("character", "character")
)
})
set_yelp_locale(old_locale)
unset_token(old_token)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.