test_that("coef", {
  coef <- coef(mcmc_data_example, simplify = TRUE)
  expect_is(coef, "tbl_df")
  expect_identical(colnames(coef), c("homeworld", "species", "films", "estimate", "lower", "upper", "svalue"))
  expect_identical(coef$species, c("Human", "Droid"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.