R/tidy.R

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

#' @export
as.data.frame.mapzen_geo_list <- function(x, ...) {
    if (length(x$features) == 0L)
        stop("Cannot convert to data.frame: no data")
    coords <- mz_coordinates(x)
    rest <- dplyr::bind_rows(
        lapply(x$features,
               function(feature) tibble::as_tibble(feature$properties))
    )
    dplyr::bind_cols(rest, coords)
}

tidyr_new_interface <- function() {
    utils::packageVersion("tidyr") > "0.8.99"
}

#' @export
as.data.frame.mapzen_isochrone_list <- function(x, ...) {
    if (length(x$features) == 0L)
        stop("Cannot convert to data.frame: empty layer")
    coords <- function(feature)
        purrr::map2_df(
            feature$geometry$coordinates,
            seq_along(feature$geometry$coordinates),
            ~tibble::tibble(lon = .x[[1]], lat = .x[[2]],
                                order = .y)
        )

    res <- tibble::tibble(
        contours = purrr::map(
            x$features,
            ~tibble::as_tibble(
                .$properties
            )
        ),
        coordinates = purrr::map(
            x$features,
            coords
        )
    )
    if (tidyr_new_interface()) {
        res <- tidyr::unnest(res, cols = tidyr::one_of("contours"))
        return(tidyr::unnest(res, cols = tidyr::one_of("coordinates")))
    } else {
        res <- tidyr::unnest_(res, "contours")
        return(tidyr::unnest(res))
    }
}