R/coords.R

In finbif: Interface for the 'Finnish Biodiversity Information Facility' API

#' @noRd
coords <- function(obj) {
  obj <- as.list(obj)
  nms <- c("lat", "lon", "system", "ratio")
  obj_seq <- seq_along(obj)
  names(obj) <- nms[obj_seq]

  lat <- paste(obj[["lat"]], collapse = ":")
  lon <- paste(obj[["lon"]], collapse = ":")
  ans <- paste(lat, lon, sep = ":")

  if (!is.null(obj[["system"]])) {
    sys <- toupper(obj[["system"]])
    systems <- c("WGS84", "EUREF", "YKJ")
    sys <- match.arg(sys, systems)
    ans <- paste(ans, sys, sep = ":")

    if (!is.null(obj[["ratio"]])) {
      ans <- paste(ans, obj[["ratio"]], sep = ":")
    }
  }

  ans
}