Nearest neighbours method

r_nn <-
  grid |>
  interpolate(nn) |>
  subset("var1.pred") |>
  mask(map)