tests/testthat/test_as.class.R

context("Test as.class functions")


test_that('as.pr.points function works.', {
  
  skip_on_cran()
  
  d <- as.pr.points(mtcars)
  expect_true(inherits(d, 'pr.points'))
  expect_true(inherits(d, 'data.frame'))
  
  d2 <- getPR(country = c("Nigeria", "Cameroon"), species = "Pf")
  d3 <- dplyr::filter(d2, year_start > 2010)
  
  #expect_false(inherits(d3, 'pr.points'))
  
  d4 <- as.pr.points(d3)
  expect_true(inherits(d4, 'pr.points'))
  expect_true(inherits(d4, 'data.frame'))
  
  
})


test_that('as.pr.points function works.', {
  
  skip_on_cran()
  
  d <- as.vectorpoints(mtcars)
  expect_true(inherits(d, 'vector.points'))
  expect_true(inherits(d, 'data.frame'))
  

})

Try the malariaAtlas package in your browser

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

malariaAtlas documentation built on July 8, 2020, 5:46 p.m.