context("test-parse-contexts")
test_that("Parsing multiple contexts works", {
result <- parse_contexts(test_document_with_multiple_contexts)
expected <- tibble(context_id = c("nIr8xE7NZof", "lzWqVt0DKfG"), name = c("Waiting", "Home"))
expect_length(result, 2)
expect_equal(result, expected)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.