test_that("`utils_time_keywords_dictionary()` works", {
df <- utils_time_keywords_dictionary()
expect_equal(class(df), "data.frame")
expect_equal(colnames(df), c("pattern", "keyword"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.