test_that("typeof works", {
expect_equal(typeof(affichage_general(matrix(rnorm(100), nrow = 10), r =2))[1], "list")
})
test_that("typeof works", {
expect_equal(typeof(affichage_general(matrix(rnorm(100), nrow = 10), r =2, mmechelle = TRUE))[1], "list")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.