Bugfix/820 name backbone checklist (#822)

* fixes #819

* fixes #819

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
+Version: 3.8.4.1
 License: MIT + file LICENSE
 Authors@R: c(
     person("Scott", "Chamberlain", role = "aut", comment = c("0000-0003-1444-9135")),

R/name_backbone.r

@@ -246,8 +246,12 @@ process_name_backbone_output <- function(tt, args) {
   }
   classification <- if (!is.null(tt$classification)) {
     c <- bind_rows(lapply(tt$classification, tibble::as_tibble))
+    if(any(duplicated(c$rank))) {
+      c$rank <- make.unique(c$rank)
+    }
     nv <- stats::setNames(c$name, tolower(c$rank))
     kv <- stats::setNames(c$key,  paste0(tolower(c$rank), "Key"))
+    
     c <- tibble::as_tibble(as.list(c(nv, kv)))
     c
   } else {
@@ -269,7 +273,6 @@ process_name_backbone_output <- function(tt, args) {
   } else {
     NULL
   }
-  
   out <- do.call("cbind", rgbif_compact(list(usage, 
                                              diagnostics, 
                                              classification,

R/name_backbone_checklist.R

@@ -266,7 +266,7 @@ check_name_data = function(name_data) {
     left_most_index <- which(colnames(name_data) %in% name_aliases)[1]
     left_most_name <- colnames(name_data)[left_most_index]
     message("No 'scientificName' column found. Using leftmost '",original_colnames[left_most_index], "' as the 'scientificName' column.\nIf you do not want to use '", original_colnames[left_most_index], "' column, re-name the column you want to use 'scientificName'.")
-    colnames(name_data) <- gsub(left_most_name,"scientificname",colnames(name_data))
+    colnames(name_data) <- gsub(left_most_name,"scientificName",colnames(name_data))
   } 
   name_data
 }