context("tail")
test_that("tail works", {
dat <- iris
rownames(dat) <- NULL
parts <- fstparts(dat, dir=tempfile())
t_o <- tail(parts)
t_e <- tail(dat)
rownames(t_o) <- rownames(t_e) <- NULL
expect_equal(t_o, t_e)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.