context("comprobar la extension del archivo a cargar")
test_that("Probando a comprobar()", {
expect_that(comprobar(".csv", "VIH.csv"), equals(TRUE))
expect_that(comprobar(".csv", "VIH.pdf"), equals(FALSE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.