```r
library(dplyr)

nasa_title <- tibble(id = metadata$dataset$`_id`$`$oid`, 
                         title = metadata$dataset$title)
nasa_title
```

```
## # A tibble: 32,089 x 2
##    id                       title                                              
##    <chr>                    <chr>                                              
##  1 55942a57c63a7fe59b495a77 15 Minute Stream Flow Data: USGS (FIFE)            
##  2 55942a57c63a7fe59b495a78 15 Minute Stream Flow Data: USGS (FIFE)            
##  3 55942a58c63a7fe59b495a79 15 Minute Stream Flow Data: USGS (FIFE)            
##  4 55942a58c63a7fe59b495a7a 2000 Pilot Environmental Sustainability Index (ESI)
##  5 55942a58c63a7fe59b495a7b 2000 Pilot Environmental Sustainability Index (ESI)
##  6 55942a58c63a7fe59b495a7c 2000 Pilot Environmental Sustainability Index (ESI)
##  7 55942a58c63a7fe59b495a7d 2001 Environmental Sustainability Index (ESI)      
##  8 55942a58c63a7fe59b495a7e 2001 Environmental Sustainability Index (ESI)      
##  9 55942a58c63a7fe59b495a7f 2001 Environmental Sustainability Index (ESI)      
## 10 55942a58c63a7fe59b495a80 2001 Environmental Sustainability Index (ESI)      
## # … with 32,079 more rows
```