```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 The product is a 2.5 deg x 2.5 deg gridded composite of climatological total (IC+CG) lightning bu~
## 2 "The General Mission Analysis Tool (GMAT) is a state of the art spacecraft mission design tool un~
## 3 "MODIS (or Moderate Resolution Imaging Spectroradiometer) is a key instrument aboard the\nTerra (~
## 4 "The proposed work is to develop a high-efficiency aircraft-qualified Fabry-Perot-based interfero~
## 5 Polymeric Broadband Polarizing Beamsplitters Project
```