Nothing
context ("avisContributorsSummary")
test_that("avisContributorsSummary returns expected header",{
response <- avisContributorsSummary()
expectedNames <- c("UserId", "Observations","Species","Provinces","UTMs","Periods")
expect_equal (colnames (response), expectedNames)
})
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.