From a0d902cf1093faa0839a09d5dc3a1645d18c1638 Mon Sep 17 00:00:00 2001
From: Elizabeth Wenk <ehwenk@gmail.com>
Date: Sat, 16 Nov 2024 13:26:06 +1100
Subject: [PATCH] Update bind_databases.R (#129)

Revert to original format of `bind_databases` arguments - required for traits.build to work using furrr method
---
 R/bind_databases.R | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/R/bind_databases.R b/R/bind_databases.R
index d16d1a7..0053e06 100644
--- a/R/bind_databases.R
+++ b/R/bind_databases.R
@@ -9,10 +9,7 @@
 #' @return Compiled database as a single large list
 #' @importFrom rlang .data
 #' @export
-bind_databases <- function(database_1, ...) {
-  
-  # List of databases to combine
-  databases = list(database_1, ...)
+bind_databases <- function(..., databases = list(...)) {
   
   combine <- function(name, databases) {
     dplyr::bind_rows(lapply(databases, "[[", name)) %>% dplyr::distinct()