R/osmttdiff.R

In neogeomat/OSMTT: Get a version of OSM data in previous time

#' osmttdiff class def
#'
#' @param xml overpass adiff xml
#' @param bbox bounding box
#' @param file previous export
#' @param base_url change if required, default is "http://overpass-api.de/api"
#' @param silent produce warning messages
#' @param ... other options ignored
#'
#' @note Class constructor should never be used directly, and is only exported
#' to provide access to the print method
#'
#' @export
osmttdiff <- function (xml,bbox = NULL, file = NULL, base_url = "http://overpass-api.de/api",
                     silent = FALSE)
{
  obj <- list (
    xml = xml,
    bbox = bbox,
    base_url = base_url,
    silent = silent,
    create = list(),
    modify = list(),
    delete = list()
    )
  class (obj) <- append ("osmttdiff",class (obj))
  return (obj)
}