Nothing
test_that("dims.vector", {
expect_identical(dims(integer(0)), 0L)
expect_identical(dims(list()), 0L)
expect_identical(dims(1), 1L)
expect_identical(dims(list(1)), 1L)
expect_identical(dims(NA_real_), 1L)
expect_identical(dims(NULL), NULL)
expect_identical(dims(2:3), 2L)
})
test_that("dims.matrix", {
expect_identical(dims(matrix(1)), c(1L, 1L))
expect_identical(dims(matrix(1:9)), c(9L, 1L))
expect_identical(dims(matrix(1:9, ncol = 3)), c(3L, 3L))
})
test_that("dims.array", {
expect_identical(dims(array(1:12, c(2, 3, 2))), c(2L, 3L, 2L))
})
test_that("dims.array named", {
expect_identical(dims(structure(c(0, 0, 0, 0, 0, 0, 0, 0),
.Dim = c(Name1 = 2L, Name2 = 2L, Name3 = 2L))),
c(2L, 2L, 2L))
})
test_that("dims.data.frame", {
expect_identical(dims(data.frame()), c(0L, 0L))
expect_identical(dims(data.frame(x = 2:3)), c(2L, 1L))
})
test_that("dims.factor", {
expect_identical(dims(factor(c("a", "b", "a"))), 3L)
})
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.