R/coords.R

Defines functions coords

#' @noRd

coords <- function(lat, lon, system, ratio) {
  coords <- paste(c(lat, lon), collapse = ":")
  if (missing(system)) return(coords)
  system <- toupper(gsub("^kkj$", "ykj", system))
  system <- match.arg(system, c("WGS84", "EUREF", "YKJ"))
  if (missing(ratio)) return(paste(coords, system, sep = ":"))
  paste(coords, system, ratio, sep = ":")
}

Try the finbif package in your browser

Any scripts or data that you put into this service are public.

finbif documentation built on Jan. 3, 2022, 5:09 p.m.