R/gibble-sp.R

In gibble: Geometry Decomposition

Defines functions gibble.Spatial gibble.SpatialPoints gibble.SpatialMultiPoints gibble.SpatialLines gibble.Lines gibble.Line gibble.SpatialPolygons gibble.Polygons gibble.Polygon gibble.trip gibble_sp

Documented in gibble.Line gibble.Lines gibble.Polygon gibble.Polygons gibble.Spatial gibble.SpatialLines gibble.SpatialMultiPoints gibble.SpatialPoints gibble.SpatialPolygons gibble.trip

gibble_sp <- function(x, ...) {
  out <- tibble::as_tibble(ibble(x, ...))
  out[["type"]] <- names(types)[out[["type"]]]
  out
}

#' @name gibble
#' @export
gibble.trip <- function(x, ...) {
  out <- tibble::as_tibble(ibble(x, ...))
  out[["type"]] <- "trip"
  out
}
#' @name gibble.Polygon
#' @rdname gibble
#' @export
gibble.Polygon <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.Polygons <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.SpatialPolygons <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.Line <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.Lines <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.SpatialLines <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.SpatialMultiPoints <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.SpatialPoints <- function(x, ...) gibble_sp(x, ...)
#' @name gibble
#' @export
gibble.Spatial <- function(x, ...) gibble_sp(x, ...)

Try the gibble package in your browser