R/oceano.R

In vaulot/dvutils: A set of utilities

# Latitude, Longitude conversion ------------------------------------------

#' Convert lat and long to decimal
#'
#' @param degree integer
#' @param minute integer
#' @param orientation "E" or "W" for long, "N" or "S" for lat, for the equitor can be anything
#' @param coordinate_type "longitude" or "latitude"
#'
#' @return
#' Decimal coordinates or NA if coordinate_type is wrong
#' @export
#'
#' @examples
#' lat_dec <- lat_long_dec(10, 30, "N", "latitude")

lat_long_dec <- function(degree, minute, orientation, coordinate_type) {
      if (is.na(orientation)) {return(NA)}
      else {
        if (coordinate_type == "longitude") {
          if (orientation == "E") {sign = 1}
          else if (orientation == "W") {sign = -1}
          else {sign=0}
          if ((degree > 180)| (minute >= 60)) {sign=0}
        }
        if (coordinate_type == "latitude") {
          if (orientation == "N") {sign = 1}
          else if (orientation == "S") {sign = -1}
          else {sign = 0}
          if ((degree > 90) | (minute >= 60)) {sign=0}
        }
        if (sign != 0) {return((degree+minute/60)*sign)}
        else {return(NA)}
      }
}