context("Teste trata cpf")
test_that("CPF com zeros a esquerda", {
saida <- trata_cpf(566619245)
expect_equal(saida,"00566619245")
expect_equal(class(saida),"character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.