library(assist)
context("Test describe")
test_that("describe cars", {
df = assist::describe(ggplot2::diamonds)
expect_equal(df$N[1], 53940)
expect_equal(df$mean[6], 3932.800)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.