Nothing
testthat::test_that("Renderer object can be created", {
testthat::expect_no_error(Renderer$new())
})
testthat::test_that("new returns an object of type Renderer", {
testthat::expect_true(inherits(Renderer$new(), "Renderer"))
})
testthat::skip_if_not_installed("ggplot2")
text_block1 <- TextBlock$new()$set_content("text")$set_style("header2")
text_block2 <- TextBlock$new()$set_content("text")
png_path <- system.file("img", "Rlogo.png", package = "png")
picture_block <- PictureBlock$new()$set_content(ggplot2::ggplot(iris))
html_block <- HTMLBlock$new(shiny::tags$div("test"))
# https://github.com/davidgohel/flextable/issues/600
withr::with_options(
opts_partial_match_old,
table_block <- TableBlock$new()$set_content(iris)
)
newpage_block <- NewpageBlock$new()
blocks <- list(text_block1, text_block2, picture_block, table_block, newpage_block, html_block)
testthat::test_that("renderRmd asserts the argument is a list of TextBlocks/PictureBlock/NewpageBlock/TableBlock", {
renderer <- Renderer$new()
testthat::expect_error(
renderer$renderRmd(append(blocks, "STH")),
regexp = "May only contain the following types: \\{TextBlock,PictureBlock,NewpageBlock,TableBlock,RcodeBlock,HTMLBlock\\}" # nolint line_length
)
})
testthat::test_that("render returns the same path as get_last_output_file", {
renderer <- Renderer$new()
testthat::expect_true(basename(renderer$render(blocks)) %in% list.files(renderer$get_output_dir()))
})
testthat::test_that("render returns the same path as get_last_output_file", {
renderer <- Renderer$new()
testthat::expect_true(basename(renderer$renderRmd(blocks)) %in% list.files(renderer$get_output_dir()))
})
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.