context("public.R")
test_that("get_health()", {
statuses <- c("NORMAL", "BUSY", "VERY BUSY", "SUPER BUSY", "STOP")
expect_true(get_health() %in% sprintf("{\"status\":\"%s\"}", statuses))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.