if (FALSE) {
#--- Load raster and access files ---#
r <- system.file("extdata", "mraster_small.tif", package = "sgsR")
mr <- terra::rast(r)
a <- system.file("extdata", "access.shp", package = "sgsR")
ac <- sf::st_read(a)
calculate_distance(
raster = mr,
access = ac,
)
}
Run the code above in your browser using DataLab