nr <- nc <- 8
r <- terra::rast(nrows = nr, ncols = nc, ext = c(0, nc, 0, nr), crs = "epsg:25831")
terra::values(r) <- c(
NA, NA, NA, NA, 1, 1, 1, NA,
NA, 2, 2, 2, NA, NA, 1, NA,
NA, 2, NA, 2, 2, NA, 1, 1,
NA, 2, NA, NA, 2, 2, NA, NA,
NA, 2, 2, 2, 2, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA
)
terra::plot(r)
gaps_filled <- fill_gaps(r)
terra::plot(gaps_filled)
Run the code above in your browser using DataLab