Nothing
context("test-plot-fgeo_habitat")
describe("outputs an object of class ggplot", {
skip_if_not_installed("fgeo.x")
skip_if_not_installed("fgeo.analyze")
elev_list <- fgeo.x::elevation
habitats <- fgeo.analyze::fgeo_habitat(elev_list, gridsize = 20, n = 4)
p <- autoplot(habitats)
it("does something I want it to do", {
expect_is(p, "ggplot")
})
})
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.