Nothing
library(dplyr)
library(httr)
test_that("lesy", {
skip_on_cran()
Sys.setenv("NETWORK_UP" = FALSE)
expect_message(lesy(), "internet") # zpráva o chybějícím internetu
Sys.setenv("NETWORK_UP" = TRUE)
expect_true(is.data.frame(lesy()))
expect_s3_class(lesy(), "sf")
expect_equal(nrow(lesy()), 2366)
expect_equal(st_crs(lesy())$input, "EPSG:4326")
expect_true(all(st_is_valid(lesy())))
expect_true(all(st_geometry_type(lesy()) %in% c("POLYGON")))
# sloupce se nerozbily...
expect_equal(colnames(lesy()), c("geometry"))
})
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.