scripts/temp-distance-functions/get_nearest_gridcell.R

In jtipton25/sgMRA: Multi-Resolution Gaussian Process Approximations with Stochastic Gradient Descent

get_nearest_gridcell <- function(i, locs, grid, dat_neighbors,  use_tidy = FALSE, use_fast_match = TRUE) {
    return(tibble(i = i, idx = trace_neighbors(locs=matrix(locs[i, ], 1, 2), grid, dat_neighbors, use_tidy, use_fast_match)))
}