Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(testthat)
## -----------------------------------------------------------------------------
skip_if_dangerous <- function() {
if (!identical(Sys.getenv("DANGER"), "")) {
skip("Not run in dangerous environments.")
} else {
invisible()
}
}
## ----eval = FALSE-------------------------------------------------------------
# convert_markdown_to_html <- function(in_path, out_path, ...) {
# if (rmarkdown::pandoc_available("2.0")) {
# from <- "markdown+gfm_auto_identifiers-citations+emoji+autolink_bare_uris"
# } else if (rmarkdown::pandoc_available("1.12.3")) {
# from <- "markdown_github-hard_line_breaks+tex_math_dollars+tex_math_single_backslash+header_attributes"
# } else {
# if (is_testing()) {
# testthat::skip("Pandoc not available")
# } else {
# abort("Pandoc not available")
# }
# }
#
# ...
# }
## ----eval = FALSE-------------------------------------------------------------
# is_testing <- function() {
# identical(Sys.getenv("TESTTHAT"), "true")
# }
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.