Nothing
test_that("Median removes NA", {
x <- c(1, 2, NA, 4)
result <- report_table(x)$Median
expect_identical(result, median(x, na.rm = TRUE))
})
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.