```r
nasa_desc <- tibble(id = metadata$dataset$`_id`$`$oid`, 
                        desc = metadata$dataset$description)

nasa_desc %>% 
  select(desc) %>% 
  sample_n(5)
```

```
## # A tibble: 5 x 1
##   desc                                                                                              
##   <chr>                                                                                             
## 1 "MODIS (or Moderate Resolution Imaging Spectroradiometer) is a key instrument aboard the\nTerra (…
## 2 This effort proposes to design, build, and demonstrate a new instrument for icing research and fl…
## 3 "ML3DZMBRO is the EOS Aura Microwave Limb Sounder (MLS) daily zonal mean product for bromine mono…
## 4 "The OMI-Aura level-3 daily global gridded (1x1 deg) near-UV Aerosol data product OMAERUVd based …
## 5 "We developed a highly sensitive and compact instrument to directly measure particulate matter (P…
```