Update method of max date retrieval R/get_dataset_additional_info.R

Co-authored-by: James McMahon <[email protected]>
Public-Health-Scotland · May 22, 2024 · 0664388 · 0664388
1 parent 6fcb440
commit 0664388
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/R/get_dataset_additional_info.R b/R/get_dataset_additional_info.R
@@ -11,16 +11,11 @@ get_datasets_additional_info <- function(dataset_name){
   amount_of_resources <- content$result$resources %>%
     length()
 
-  last_resource_created_date <- purrr::map(content$result$resources, ~.$created) %>%
-    unlist() %>%
-    max()
+  last_resource_created_date <- purrr::map_chr(content$result$resources, ~.$created)
 
-  last_resource_modified_date <- purrr::map(content$result$resources, ~.$last_modified) %>%
-    unlist() %>%
-    max()
+  last_resource_modified_date <- purrr::map_chr(content$result$resources, ~.$last_modified)
 
-  most_recent_resource_date <- c(last_resource_modified_date, last_resource_created_date) %>%
-    max()
+  most_recent_resource_date <- max(last_resource_modified_date, last_resource_created_date)
 
   return_value <- list("name" = dataset_name,
                          "amount_of_resources" = amount_of_resources,