test_that("modifyRut() pasa a numérico un rut", {
x1 <- "17994104-k"
y1 <- 17994104
x2 <- "17994104k"
y2 <- 17994104
expect_identical(modifyRut(x1), y1)
expect_identical(modifyRut(x2), y2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.