Nothing
context("ecology")
test_that("we can call the ecology table", {
needs_api()
df <- ecology("Oreochromis niloticus")
expect_is(df, "data.frame")
})
#'
#' ## trophic levels and standard errors for a list of species
test_that("We can query trophic level fields only", {
needs_api()
df <- ecology(c("Oreochromis niloticus", "Salmo trutta"),
fields=c("SpecCode", "FoodTroph",
"FoodSeTroph", "DietTroph", "DietSeTroph"))
expect_is(df, "data.frame")
})
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.