if (FALSE) {
# Set your API key
options(geofi_mml_api_key = "your_api_key_here")
# Download the "hautausmaa" (cemeteries) collection in EPSG:3067
cemeteries <- ogc_get_maastotietokanta(collection = "hautausmaa")
print(cemeteries)
# Download the "suo" (bogs/marshes) collection with a higher page limit
bogs <- ogc_get_maastotietokanta(
collection = "suo",
max_pages = 500
)
print(bogs)
# Download with a bounding box (in EPSG:4326) and transform to EPSG:4326
cemeteries_bbox <- ogc_get_maastotietokanta(
collection = "hautausmaa",
bbox = "24.5,60.1,25.5,60.5",
crs = 4326
)
print(cemeteries_bbox)
}
Run the code above in your browser using DataLab