Nothing
context("best_match")
test_that("misc", {
best_match("petal", names(iris)) %>%
expect_equivalent("Petal.Length")
best_match("petal", names(iris), all = TRUE) %>%
expect_equivalent(c("Petal.Length", "Petal.Width"))
})
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.