tests/apitest/test-avisApiBusOrden.R

context ("Remote API Client: avisApiBusOrden")

response <- .avisApiBusOrden()

test_that(".avisApiBusOrden returns data", { 

	expect_true (length(response) > 0)
})

test_that(".avisApiBusOrden returns double", { 

	expect_true (is.double(response))
})

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.