R/collapse-properties.R

In rmapzen: Client for 'Mapzen' and Related Map APIs

collapse_properties <- function(geo) {

    collapser <- function(feature) {
        feature$properties <- lapply(
            feature$properties,
            function(x) paste0(x, collapse = ";")
        )
        feature
    }

    geo$features <- lapply(geo$features, collapser)
    geo
}