Nothing
# ## "can read from various sources", {
#
#
# tinytest::exit_file(msg = "Skipping for cran")
#
# url <- "http://eric.clst.org/assets/wiki/uploads/Stuff/gz_2010_us_outline_500k.json"
#
# ## direct from url
# con <- url(url)
# lines <- geojsonsf:::read_url(con)
# #close(con)
# expect_true(nchar(lines) == 1078089)
#
# sf <- geojson_sf(lines)
# sfc <- geojson_sfc(lines)
#
# expect_true(nrow(sf) == 615)
# expect_true(length(sfc) == 615)
#
# sf <- geojson_sf(url)
# sfc <- geojson_sfc(url)
#
# expect_true(all(class(sf) == c("sf", "data.frame")))
# expect_true(all(class(sfc) == c("sfc_LINESTRING", "sfc")))
#
# expect_true(nrow(sf) == 615)
# expect_true(length(sfc) == 615)
#
# ## connection
# con <- url(url)
# sf <- geojson_sf(con)
# con <- url(url)
# sfc <- geojson_sfc(con)
#
# expect_true(all(class(sf) == c("sf", "data.frame")))
# expect_true(all(class(sfc) == c("sfc_LINESTRING", "sfc")))
#
# expect_true(nrow(sf) == 615)
# expect_true(length(sfc) == 615)
#
# ## local file
# sf <- geojson_sf(geo_melbourne)
# sfc <- geojson_sfc(geo_melbourne)
#
# expect_true(nrow(sf) == length(sfc))
# expect_true(nrow(sf) == 41)
#
# sf <- geojson_sf(system.file("examples", "geo_melbourne.geojson", package = "geojsonsf"))
# sfc <- geojson_sfc(system.file("examples", "geo_melbourne.geojson", package = "geojsonsf"))
#
# expect_true(nrow(sf) == length(sfc))
# expect_true(nrow(sf) == 41)
#
# ## ("read utils work", {
# expect_true(geojsonsf:::is_url("http://www"))
# expect_true(geojsonsf:::is_url("https://www"))
# expect_false(geojsonsf:::is_url("me.com"))
#
#
# ## "read_rul works", {
#
# url <- "http://eric.clst.org/assets/wiki/uploads/Stuff/gz_2010_us_outline_500k.json"
# con <- url(url)
# geo <- geojsonsf:::read_url(con)
# expect_true(nchar(geo) == 1078089)
#
# # url <- "http://notaurl"
# # con <- url(url)
# # expect_error(
# # geojsonsf:::read_url(con)
# # #, "There was an error downloading the geojson"
# # )
#
#
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.