tests/testthat/test-fread.matrix.R

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)
})
jiayiliujiayi/timekiller documentation built on June 15, 2025, 6:31 a.m.