R/elevation.R

In weatherjoin: Join Gridded Weather Data to Event Tables

Defines functions .elev_lookup

Documented in .elev_lookup

#' Placeholder elevation lookup
#' @keywords internal
.elev_lookup <- function(lon, lat, method = c("constant"), constant = 100, ...) {
  method <- match.arg(method)
  if (method == "constant") return(rep(as.numeric(constant), length(lon)))
  rep(as.numeric(constant), length(lon))
}

Try the weatherjoin package in your browser