wd = "../.."
hs_test_code = readLines(file.path(wd, "inst/stan_scaffolds/macro_hs.stan"))
test_that("simple horseshoe model is syntactically correct", {
expect_type(parse_stan_macros(
hs_test_code, hs_betas = stan_macro_horseshoe("1", "D")), "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.