## code to prepare `template` objects goes here
template_models <- c("model_fit",
"lm",
"glm",
"coxph")
template_patterns <- c("fundamental",
"direct",
"sequential",
"parallel")
template_shortcuts <- c("O",
"X",
"C",
"M",
"S",
"In")
template_roles <- c("outcome",
"predictor",
"exposure",
"confounder",
"mediator",
"strata",
"unknown",
"interaction")
template_operations <- c("log")
usethis::use_data(template_models,
template_patterns,
template_shortcuts,
template_roles,
template_operations,
internal = TRUE,
overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.