Update bind_databases.R

R/bind_databases.R

@@ -9,7 +9,14 @@
 #' @return Compiled database as a single large list
 #' @importFrom rlang .data
 #' @export
-bind_databases <- function(..., databases = list(...)) {
+bind_databases <- function(database_1, ...) {
+
+  # List of databases to combine
+  databases = list(database_1, ...)
+
+  # Capture names of databases input; required below to assign names to databases in list
+  database_names <- match.call() %>% as.character()
+  database_names <- database_names[-1]
 
   combine <- function(name, databases) {
     dplyr::bind_rows(lapply(databases, "[[", name)) %>% dplyr::distinct()
@@ -28,8 +35,11 @@ bind_databases <- function(..., databases = list(...)) {
   # Drop null datasets
   databases[sapply(databases, is.null)] <- NULL
 
-  # XX - TODO - I think this line of code needs to change
-  names(databases) <- sapply(databases, "[[", "dataset_id")
+  # Assign names to databases
+  names(databases) <- database_names
+  # This is the initial code used in traits.build, where the names of the individual databases
+  # were always dataset_id's
+  #names(databases) <- sapply(databases, "[[", database_names)
 
   # Taxonomy