test_that("loading the phi constants table works as expected", {
phi_table <- load_phi_constants_table()
colnames <- phi_table %>%
names()
expect_equal(colnames, c("Product", "phi", "is.useful"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.