contains_hts_call <- function(formula) {
formula_string <- rlang::expr_text(formula)
stringr::str_detect(formula_string, "hts\\([a-zA-Z]+")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.