message("*** debug() ...")
debug <- startup:::debug ## non-exported
is_debug_on <- startup::is_debug_on
print(debug())
print(is_debug_on())
print(debug(TRUE))
stopifnot(is_debug_on())
startup:::log("Hello")
startup:::logf("Hello %s", "world")
startup:::logp(str(1:10))
print(debug(FALSE))
stopifnot(!is_debug_on())
message("*** debug() ... DONE")
rm(list = "debug")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.