# NOT RUN {
if (
requireNamespace("sf", quietly = TRUE) &&
requireNamespace("protolite", quietly = TRUE)
) {
x <- mvt_fetch(taxonKey = 2480498, year = 2007:2011)
x
# gives an sf object
class(x)
# different srs
## 3857
y <- mvt_fetch(taxonKey = 2480498, year = 2010, srs = "EPSG:3857")
y
## 3031
z <- mvt_fetch(taxonKey = 2480498, year = 2010, srs = "EPSG:3031", verbose = TRUE)
z
# 3575
z <- mvt_fetch(taxonKey = 2480498, year = 2010, srs = "EPSG:3575")
z
# bin
x <- mvt_fetch(taxonKey = 212, year = 1998, bin = "hex",
hexPerTile = 30, style = "classic-noborder.poly")
x
# query with basisOfRecord
mvt_fetch(taxonKey = 2480498, year = 2010,
basisOfRecord = "HUMAN_OBSERVATION")
mvt_fetch(taxonKey = 2480498, year = 2010,
basisOfRecord = c("HUMAN_OBSERVATION", "LIVING_SPECIMEN"))
}
# }
Run the code above in your browser using DataLab