library(sf)
#> Linking to GEOS 3.8.1, GDAL 3.1.1, PROJ 7.1.0
library(tmap)
library(purrr)
library(jsonlite)
#>
#> Attaching package: 'jsonlite'
#> The following object is masked from 'package:purrr':
#>
#> flatten
library(geojsonsf)
json = 'https://api.jsonbin.io/b/5f76362e302a837e9572642b'
extract_geom <- function(data) {
geojson_sf(data %>% toJSON(auto_unbox = TRUE))
}
sf_list <- map(read_json(json)$response, extract_geom)
st_as_sf(data.table::rbindlist(sf_list)) %>%
tm_shape() +
tm_polygons()
# True shapes extracted from json
shp1 <- geojson_sf('{"_id":{"$oid":"5f734aca3426060a6d0a9ebd"},"type":"Feature","properties":{"id_comunas":"16106","manzana":"3762"},"geometry":{"type":"Polygon","coordinates":[[[-70.65843928154064,-33.48961317801985],[-70.65848925637721,-33.489741566369396],[-70.65881916803056,-33.489651408281304],[-70.65876919277032,-33.48952302007645],[-70.65843928154064,-33.48961317801985]]]}}')
shp2 <- geojson_sf('{"_id":{"$oid":"5f734acd3426060a6d0aa4a9"},"type":"Feature","properties":{"id_comunas":"16106","manzana":"3762"},"geometry":{"type":"Polygon","coordinates":[[[-70.65721044300078,-33.489864502691425],[-70.65716694092083,-33.489874250662815],[-70.6572020152041,-33.48998248754131],[-70.65743435449795,-33.48992965864198],[-70.6573973690393,-33.4898278349771],[-70.65721044300078,-33.489864502691425]]]}}')
st_as_sf(data.table::rbindlist(list(shp1, shp2))) %>%
tm_shape() +
tm_polygons()
Created on 2020-10-01 by the reprex package (v0.3.0)
Thank you again @dcooley :) 👍