Nothing
context("verificaTipoColuna return")
test_that("verificaTipoColuna", {
ID_plant <- c("ABC","ABC","ABC","ABC")
ID_Re <- c(1,2,3,4)
test <- data.frame(ID_Re,ID_plant)
expect_equal(verificaTipoColuna(test$ID_Re), "as.numeric()")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.