context("MasterMind - hideCode")
source('../../R/server.R')
test_that("hideCode exists", {
hideCode <- mmServer('hideCode')
expect_failure(expect_null(hideCode))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.