test_that("That get regions works", {
correct_result <- "L718307"
my_result <- get_hotspots(region = "US", key = "888uifcqohgh")
expect_true(correct_result %in% my_result$locID)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.