R/hydro_coords.R

In hydroscoper: Interface to the Greek National Data Bank for Hydrometeorological Information

#' @title Convert coordinates from Hydroscope's points to a tibble
#'
#' @description \code{hydro_coords} returns a tibble with the stations'
#' longitude and latitude using as input the variable \code{point}
#' from \code{get_stations} function.
#'
#' @param x a string vector with the points retrieved from Hydroscope
#'
#' @return a tibble with the longitude and latitude values.
#'
#' @author Konstantinos Vantas, \email{kon.vantas@gmail.com}
#' @export hydro_coords
#'
#' @examples
#' \dontrun{
#' # get stations from the Greek Ministry of Environment and Energy
#' kyy_stations <- get_stations("kyy")
#'
#' # create a tibble with stations' coords
#' coords <- hydro_coords(kyy_stations$point)
#' }
hydro_coords <- function(x) {
  tibble::as_tibble(do.call(rbind, lapply(x, create_coords)))
}