Nothing
library(testthat)
library(webTRISr)
test_that("webtris_sites() returns dataframe", {
x <- webtris_sites()
expect_is(x, class = "data.frame")
expected_cols <- c("Id", "Name", "Description", "Longitude",
"Latitude", "Status")
expect_equivalent(expected_cols, colnames(x))
x <- webtris_sites('3', sf = TRUE)
expect_is(x, class = "sf")
expected_cols <- c("Id", "Name", "Description", "Status", "geometry")
expect_equivalent(expected_cols, colnames(x))
})
test_that("webtris_quality(daily=FALSE) returns dataframe", {
x <- webtris_sites(1)
expect_is(x, class = "data.frame")
expected_cols <- c("Id", "Name", "Description", "Longitude",
"Latitude", "Status")
expect_equivalent(expected_cols, colnames(x))
})
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.