on_ci <- function() {
isTRUE(as.logical(Sys.getenv("CI")))
}
not_on_cran <- function() {
identical(Sys.getenv("NOT_CRAN"), "true")
}
silent_fv_sample <- function(...) {
utils::capture.output(
fit <- suppressMessages(fv_sample(...))
)
return(fit)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.