test_that("fread.matrix returns a matrix", {
x = fread.matrix('https://raw.githubusercontent.com/jiayiliujiayi/timekiller/master/testdata/dataset_matrix.txt')
expect_equal(mode(x), "numeric")
expect_equal(class(x) %>% sort(), c("matrix", "array") %>% sort)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.