We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 7c70953 + 4870485 commit 4f10fa0Copy full SHA for 4f10fa0
tests/testthat/helper-Reporter.R
@@ -33,6 +33,7 @@ test_card1 <- function(title = NULL) {
33
withr::with_environment(emptyenv(), plot <- ggplot2::ggplot(iris, ggplot2::aes(x = Petal.Length)) +
34
ggplot2::geom_histogram(binwidth = 0.2))
35
new_card <- doc("## Header 2 text", "A paragraph of default text", plot)
36
+ new_card <- report_document("## Header 2 text", "A paragraph of default text", plot)
37
if (!is.null(title)) metadata(new_card, "title") <- title
38
new_card
39
}
0 commit comments