# NOT RUN {
library(sf)
library(raster)
Polygon1 <- sf::st_as_sf(sf::st_sfc(
sf::st_polygon(list(cbind(
c(4496482, 4496482, 4499991, 4499991, 4496482),
c(2666272, 2669343, 2669343, 2666272, 2666272)))),
crs = 3035
))
DEM_meter <- getDEM(Polygon1)
plot(DEM_meter[[1]])
plot(DEM_meter[[2]], add=TRUE)
# }
Run the code above in your browser using DataLab