knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(getarc)
# counties_table <- query_layer(endpoint = endpoints$english_counties, # query = c(returnGeometry = "false"))
# cumbria <- query_layer( # endpoint = endpoints$english_counties, # query = c(where = "cty19nm LIKE 'Cumbria'"), crs = 4326 # ) # # # cumbria_ancient_woodlands <- # query_layer(endpoint = endpoints$ancient_woodland_england, # bounding_box = sf::st_bbox(cumbria)) #
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.