Nothing
test_that("plot.sf() support characters", {
m <- list(rbind(c(0,0), c(1,0), c(1, 1), c(0,1), c(0,0))) %>% st_polygon()
x <- data.frame(a = c("a", "b"), stringsAsFactors = FALSE) %>% st_as_sf(geom = st_sfc(m, m + 2))
expect_silent(plot(x))
})
test_that("plot.sf warns on more than 15 attributes", {
nc = st_read(system.file("shape/nc.shp", package="sf"), "nc", quiet = TRUE)
x = cbind(nc,nc)
expect_warning(plot(x))
})
test_that("plot.sf deals with key.length in cm", {
nc = st_read(system.file("shape/nc.shp", package="sf"), "nc", quiet = TRUE)
expect_silent(plot(nc[1], key.length = lcm(5), key.pos = 2))
expect_silent(plot(nc[1], key.length = lcm(5), key.pos = 1))
nc$f = factor(rep(c("a", "b"), each = 50))
expect_silent(plot(nc["f"], key.length = lcm(5), key.pos = 2))
expect_silent(plot(nc["f"], key.length = lcm(5), key.pos = 1))
})
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.