Extraer unos campos desde geoJson

[son0p]

Se tiene una lista "geojson" de este tipo:

$features[[64]]
$features[[64]]$type
[1] "Feature"

$features[[64]]$properties
$features[[64]]$properties$venue
[1] "meydenbauer center"

$features[[64]]$properties$event
[1] "ilusion world tour"

$features[[64]]$properties$date
[1] "2013-05-12 T 22:00:00"

$features[[64]]$properties$capacity
[1] 750

$features[[64]]$properties$occupation
[1] 80

$features[[64]]$properties$lineup
[1] "fonseca"

$features[[64]]$properties$event_genres
[1] "pop, tropipop"

$features[[64]]$properties$city
[1] "Bellevue Washington"

$features[[64]]$properties$headliner
[1] "fonseca"

$features[[64]]$geometry
$features[[64]]$geometry$type
[1] "Point"

$features[[64]]$geometry$coordinates
[1] -122.19193   47.61635

Se desean extraer unos campos y se usa lapply de esta manera

flatten_geometry <- lapply(geojson, function(x) x[['features']][['geometry']]['coordinates'])

Resulta el error: Error in x[["features"]] (from #1) : subscript out of bounds

[son0p]

gracias a @brolin , para extraer las coordenadas se puede usar

coordinates <- matrix(unlist(geojson$features$geometry$coordinates), ncol = 2, byrow = TRUE)

para extraer un solo campo:

capacity <- matrix(unlist(geojson$features$properties$capacity), ncol = 1, byrow = TRUE)