Nothing
#' Get coordinates
#'
#' @export
#' @name playing
#' @param x stuff
#' @examples \dontrun{
#' x <- '{"type": "Feature", "geometry": {"type": "Point","coordinates": [1, 2]},"properties": {}}'
#' get_coord(x)
#' x <- '{"type": "Point", "coordinates": [1, 2]}'
#' get_coord(x)
#' x <- '[0, 5]'
#' get_coord(x)
#'
#' # get_coord(x)
#' # get_str(x)
#' # get_json()
#' # parse_type(x)
#'
#' # in ring
#' pt <- "[-77, 44]"
#' ring <- "[[10,59],[10.1,59.8],[10.3,60],[10.3,59],[10,59]]"
#' in_ring(pt, ring)
#'
#' pt <- "[10.17, 59.4]"
#' ring <- "[[10,59],[10.1,59.8],[10.3,60],[10.3,59],[10,59]]"
#' in_ring(pt, ring)
#' }
get_str <- function(x) {
.Call("geoops_rcpp_str", PACKAGE = "geoops", x)
}
# get_coord <- function(x) {
# .Call("geoops_get_coord", PACKAGE = "geoops", x)
# }
get_json <- function() {
.Call("geoops_rcpp_json", PACKAGE = "geoops")
}
parse_type <- function(x) {
.Call("geoops_rcpp_type", PACKAGE = "geoops", x)
}
parse_ifelse <- function(x) {
.Call("geoops_rcpp_ifelse", PACKAGE = "geoops", x)
}
parse_bools <- function(x) {
.Call("geoops_rcpp_bools", PACKAGE = "geoops", x)
}
in_ring <- function(x, y) {
.Call("geoops_in_ring", PACKAGE = "geoops", x, y)
}
polygon <- function(coordinates, properties = "{}") {
.Call("geoops_polygon", PACKAGE = "geoops", coordinates, properties)
}
point <- function(coordinates, properties = "{}") {
.Call("geoops_point", PACKAGE = "geoops", coordinates, properties)
}
x = '[[
[-2.275543, 53.464547],
[-2.275543, 53.489271],
[-2.215118, 53.489271],
[-2.215118, 53.464547],
[-2.275543, 53.464547]
]]'
prop = '{"name": "poly1", "population": 400}'
polygon(gsub("\n|\\s+", "", x), prop)
circle2 <- function() {
.Call("geoops_circle2", PACKAGE = "geoops")
}
circle2()
circle3 <- function() {
.Call("geoops_circle3", PACKAGE = "geoops")
}
circle3()
circle <- function(center, radius, steps, units) {
.Call("geoops_circle", PACKAGE = "geoops", center, radius, steps, units)
}
circle()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.