#' osmdata class def
#'
#' @param bbox bounding box
#' @param overpass_call overpass_call
#' @param meta metadata of overpass query, including timestamps and version
#' numbers
#' @param osm_points OSM nodes as \pkg{sf} Simple Features Collection of points
#' or \pkg{sp} SpatialPointsDataFrame
#' @param osm_lines OSM ways \pkg{sf} Simple Features Collection of linestrings
#' or \pkg{sp} SpatialLinesDataFrame
#' @param osm_polygons OSM ways as \pkg{sf} Simple Features Collection of
#' polygons or \pkg{sp} SpatialPolygonsDataFrame
#' @param osm_multilines OSM relations as \pkg{sf} Simple Features Collection
#' of multilinestrings or \pkg{sp} SpatialLinesDataFrame
#' @param osm_multipolygons OSM relations as \pkg{sf} Simple Features
#' Collection of multipolygons or \pkg{sp}
#' SpatialPolygonsDataFrame
#'
#' @note Class constructor should never be used directly, and is only exported
#' to provide access to the print method
#'
#' @family package
#' @export
osmdata <- function (bbox = NULL, overpass_call = NULL, meta = NULL,
osm_points = NULL, osm_lines = NULL, osm_polygons = NULL,
osm_multilines = NULL, osm_multipolygons = NULL) {
obj <- list (
bbox = bbox,
overpass_call = overpass_call,
meta = meta,
osm_points = osm_points,
osm_lines = osm_lines,
osm_polygons = osm_polygons,
osm_multilines = osm_multilines,
osm_multipolygons = osm_multipolygons
)
class (obj) <- append (class (obj), "osmdata")
return (obj)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.