Print ID of resources in bcdc_search; add readr to imports in DESCRIP…

…TION

DESCRIPTION

@@ -25,6 +25,7 @@ Imports:
     httr (>= 1.4),
     purrr (>= 0.2),
     sf (>= 0.7),
+    readr (>= 1.3),
     utils
 Suggests: 
     knitr,

R/bcdc_search.R

@@ -187,11 +187,13 @@ print.bcdc_recordlist <- function(x) {
   len <- length(x)
   n_print <- min(10, len)
   cat("\nNumber of records:", len)
-  if (n_print < len) cat(" (Showing the top 10.)")
+  if (n_print < len) cat(" (Showing the top 10)")
   cat("\nTitles:\n")
   x <- purrr::set_names(x, NULL)
   cat(paste(purrr::imap(x[1:n_print], ~ {
-    paste0(.y, ": ", .x[["title"]])
+    paste0(.y, ": ", .x[["title"]], "\n ID: ",
+           .x[["id"]])
   }), collapse = "\n"), "\n")
-  cat("\nAccess a single record by indexing the record list by its number")
+  cat("\nAccess a single record by calling bcdc_get_record(ID)
+with the ID from the desired record.")
 }