if (FALSE) {
library(sf)
# Create shape
x <- st_polygon(list(matrix(c(8.852234, 42.55466,
8.852234, 42.57289,
8.860474, 42.57289,
8.860474, 42.55466,
8.852234, 42.55466),
ncol = 2, byrow = TRUE)))
x <- st_sfc(x, crs = st_crs(4326))
# Download data to current directory
get_raw_lidar(x)
# Check all .laz file
list.files(".", pattern = ".laz", recursive = TRUE)
}
Run the code above in your browser using DataLab