R/get_coord.R

In ropenscilabs/geoops: 'GeoJSON' Topology Calculations and Operations

#' Get coordinates
#'
#' @export
#' @param x geojson string
#' @return a character vector with coordinates as JSON
#' @details You can use `jsonlite` to convert the output to R
#' objects
#' @examples \dontrun{
#' x <- '{"type": "Feature", "geometry": {"type": "Point","coordinates": [1, 2]},"properties": {}}'
#' geo_get_coords(x)
#' x <- '{"type": "Point", "coordinates": [1, 2]}'
#' geo_get_coords(x)
#' x <- '[0, 5]'
#' geo_get_coords(x)
#' }
geo_get_coords <- function(x) {
  get_coords(x)
}