R/osmttdiff-methods.R

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

print.osmttdiff <- function(obj)
{
  msg <- "Object of class 'osmdata' with:\n"
  msg <- c (msg, c (rep (' ', 17)))
  nm <- c (rep (" ", 17 - length(obj$create)), "Created: ", length(obj$create))
  msg <- c(msg,nm)
  nm <- c (rep (" ", 17 - length(obj$modify)), "Modified: ", length(obj$modify))
  msg <- c(msg,nm)
  nm <- c (rep (" ", 17 - length(obj$delete)), "Deleted: ", length(obj$delete))
  msg <- c(msg,nm)
  message(msg)
}

#' Converts overpass diff xml to osmttdiff object
#'
#' @param xml xml document from overpass diff query
#' @export
#' @examples
#' \dontrun{
#' od<-osmadiff("sanga","2019-01-01T12:00:00Z")
#' odd<-osmdata:::overpass_query(osmdata::opq_string(od))
#' osmttdiff_sf(odd) -> odd_sf
#' }
osmttdiff_sf <- function(xml){
  obj <- osmttdiff(xml)
  odd_xml <- xml2::read_xml(xml)
  # created elements
  odd_xml_create <- xml2::xml_find_all(odd_xml,'//action[@type="create"]/*')
  osm_create <- xml2::xml_new_root('osm')
  for (i in odd_xml_create) {
    # print(odd_xml_way)
    # print(i)
    xml2::xml_add_child(osm_create,i)
  }
  parse_odd_create <- osmdata:::rcpp_osmdata_sf(as.character(osm_create))

  obj$create <- parse_odd_create

  # modified elements
  odd_xml_modify <- xml2::xml_find_all(odd_xml,'//action[@type="modify"]/old/*')
  osm_modify <- xml2::xml_new_root('osm')
  for (i in odd_xml_modify) {
    # print(odd_xml_way)
    # print(i)
    xml2::xml_add_child(osm_modify,i)
  }
  parse_odd_modify <- osmdata:::rcpp_osmdata_sf(as.character(osm_modify))

  obj$modify <- parse_odd_modify

  # deleted elements
  odd_xml_delete <- xml2::xml_find_all(odd_xml,'//action[@type="delete"]/old/*')
  osm_delete <- xml2::xml_new_root('osm')
  for (i in odd_xml_delete) {
    # print(odd_xml_way)
    # print(i)
    xml2::xml_add_child(osm_delete,i)
  }
  parse_odd_delete <- osmdata:::rcpp_osmdata_sf(as.character(osm_delete))

  obj$delete <- parse_odd_delete
}