1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
## ----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")
# }
|
