tests/testthat_disabled/test-avisAllSpecies.R

context("avisAllSpecies")

test_that("AvisAllSpecies output is a vector, 
names are characters and ids are numeric", { 

    response <- avisAllSpecies()  
    expect_true(is.vector (response))
    expect_is (names (response)[1], "character")
    expect_is (response[1], "numeric")
})

Try the rAvis package in your browser

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

rAvis documentation built on May 2, 2019, 3:28 p.m.