Nothing
test_that("PlotData works as expected in example", {
skip_if_offline()
vcr::use_cassette("PlotData", {
PlotData_a <- PlotData(
lon = -47.3,
lat = -22.87,
start.date = "2021-12-28",
end.date = "2022-12-31"
)
vdiffr::expect_doppelganger("disp-PlotData-a", PlotData_a)
})
})
test_that("PlotData stops if not enough time between dates", {
skip_if_offline()
expect_error(PlotData(
lon = -47.3,
lat = -22.87,
start.date = "2021-12-28",
end.date = "2021-12-31"
))
})
test_that("PlotData stops if invalid date format is supplied", {
skip_if_offline()
expect_error(PlotData(
lon = -47.3,
lat = -22.87,
start.date = "2020-12-28",
end.date = "12-21-28"
))
})
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.