context("check_if_data_matrix")
test_that("check_if_data_matrix behaves as expected", {
expect_true(check_if_data_matrix(matrix(0)))
expect_true(check_if_data_matrix(data.frame()))
expect_false(check_if_data_matrix(list()))
expect_false(check_if_data_matrix(numeric(10)))
### Check Matrix package
library("Matrix")
expect_false(check_if_data_matrix(Matrix::Diagonal(10, 1)))
expect_false(check_if_data_matrix(Matrix::Matrix(matrix(0))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.