From 2d0813591724e901f2522ee2b3217ce39c01ab98 Mon Sep 17 00:00:00 2001
From: "Rich @ enzedonline" <72310199+enzedonline@users.noreply.github.com>
Date: Tue, 12 Apr 2022 15:35:38 +0200
Subject: [PATCH] Update 08-nasa-metadata.Rmd

Update id definition to reflect current NASA metadata (metadata$dataset$identifier) as per issue #72
---
 08-nasa-metadata.Rmd | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/08-nasa-metadata.Rmd b/08-nasa-metadata.Rmd
index 6bc8c437..9142fe01 100644
--- a/08-nasa-metadata.Rmd
+++ b/08-nasa-metadata.Rmd
@@ -44,7 +44,7 @@ Let's set up separate tidy data frames for title, description, and keyword, keep
 ```{r title, dependson = "download", message=FALSE}
 library(dplyr)
 
-nasa_title <- tibble(id = metadata$dataset$`_id`$`$oid`, 
+nasa_title <- tibble(id = metadata$dataset$identifier, 
                      title = metadata$dataset$title)
 nasa_title
 ```
@@ -52,7 +52,7 @@ nasa_title
 These are just a few example titles from the datasets we will be exploring. Notice that we have the NASA-assigned ids here, and also that there are duplicate titles on separate datasets.
 
 ```{r desc, dependson = "download", dplyr.width = 150}
-nasa_desc <- tibble(id = metadata$dataset$`_id`$`$oid`, 
+nasa_desc <- tibble(id = metadata$dataset$identifier, 
                     desc = metadata$dataset$description)
 
 nasa_desc %>% 
@@ -67,7 +67,7 @@ Now we can build the tidy data frame for the keywords. For this one, we need to
 ```{r keyword, dependson = "download"}
 library(tidyr)
 
-nasa_keyword <- tibble(id = metadata$dataset$`_id`$`$oid`, 
+nasa_keyword <- tibble(id = metadata$dataset$identifier, 
                        keyword = metadata$dataset$keyword) %>%
   unnest(keyword)