Nothing
context ("Remote API Client: avisApiBusEspecie")
response<- .avisApiBusEspecie()
test_that(".avisApiBusEspecie output is a dataframe",{
expect_is(response, 'data.frame')
})
test_that(".avisApiBusEspecie returns expected header",{
expectedHeader <- c("Observations", "Individuals", "UTM.10x10", "Birdwatchers")
expect_equal (names(response), expectedHeader)
})
test_that(".avisApiBusEspecie returns records",{
expect_equal (dim(o)[1] > 0)
})
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.