fix: add acceptedUsageKey and acceptedScientificName to name_backbone output #824 (#826)

Author: jhnwllr

DESCRIPTION

@@ -8,7 +8,7 @@ Description: A programmatic interface to the Web Service methods
     retrieving information on data providers, getting species occurrence
     records, getting counts of occurrence records, and using the GBIF
     tile map service to make rasters summarizing huge amounts of data.
-Version: 3.8.4.1
+Version: 3.8.4.2
 License: MIT + file LICENSE
 Authors@R: c(
     person("Scott", "Chamberlain", role = "aut", comment = c("0000-0003-1444-9135")),

R/name_backbone.r

@@ -262,6 +262,14 @@ process_name_backbone_output <- function(tt, args) {
   } else {
     NULL
   }
+  acceptedUsage <- if (!is.null(tt$acceptedUsage)) {
+    a <- tibble::as_tibble(tt$acceptedUsage)[c("key","name")]
+    colnames(a)[colnames(a) == "key"] <- "acceptedUsageKey"
+    colnames(a)[colnames(a) == "name"] <- "acceptedScientificName"
+    a
+  } else {
+    NULL
+  }
   verbatim <- if (!is.null(args)) {
   input_args_clean <- args[!names(args) %in% 
                              c("strict","verbose","start","limit","curlopts")]
@@ -273,7 +281,8 @@ process_name_backbone_output <- function(tt, args) {
   } else {
     NULL
   }
-  out <- do.call("cbind", rgbif_compact(list(usage, 
+  out <- do.call("cbind", rgbif_compact(list(usage,
+                                             acceptedUsage, 
                                              diagnostics, 
                                              classification,
                                              synonym,

tests/fixtures/name_backbone_acceptedUsageKey.yml

@@ -127,3 +127,14 @@ test_that("name_backbone verbose=TRUE", {
   expect_true(all(vv$verbatim_name == "Calopteryx"))
   expect_true(nrow(vv) > nrow(tt))
 })
+
+test_that("name_backbone returns acceptedUsageKey", {
+  vcr::use_cassette("name_backbone_acceptedUsageKey", {
+    aa <- name_backbone(name = 'Anastrophyllum minutum')
+  })
+  expect_is(aa, "tbl")
+  expect_is(aa, "tbl_df")
+  expect_is(aa, "data.frame")
+  expect_true("acceptedUsageKey" %in% colnames(aa))
+  expect_true("acceptedScientificName" %in% colnames(aa))
+})