tests/testthat/test_verificaTipoColuna-functions.R

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()")
})

Try the Fgmutils package in your browser

Any scripts or data that you put into this service are public.

Fgmutils documentation built on Nov. 18, 2018, 1:04 a.m.