library(testthat)
old_clickme_template_path <- getOption("clickme_template_path")
old_clickme_output_path <- getOption("clickme_output_path")
demo_mode(FALSE)
set_default_paths()
test_check("clickme")
options(clickme_template_path = old_clickme_template_path,
clickme_output_path = old_clickme_output_path)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.