tests/testthat/test-summaryAsHTML.R
library(htmlTable)
set.seed(1)
x <- rnorm(100)
test_that("Numerical summary as HTML format works", {
expect_error(htmlTable(summaryAsHTML(x)), NA)
})
library(htmlTable)
set.seed(1)
x <- rnorm(100)
test_that("Numerical summary as HTML format works", {
expect_error(htmlTable(summaryAsHTML(x)), NA)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
