tweaking ade_database_endpoint

NAMESPACE

@@ -2,6 +2,7 @@
 
 S3method(ade_database_endpoint,ade_cluster_endpoint)
 S3method(ade_database_endpoint,ade_database_resource)
+S3method(ade_database_endpoint,character)
 S3method(run_command,ade_cluster_endpoint)
 S3method(run_command,ade_database_endpoint)
 S3method(run_query,ade_database_endpoint)

R/database.R

@@ -22,8 +22,8 @@ ade_database_endpoint.ade_database_resource <- function(object, ...)
 
 
 #' @export
-ade_database_endpoint.character <- function(object, database, tenant, ...)
+ade_database_endpoint.character <- function(object, cluster, location, tenant, ...)
 {
-    clus <- ade_cluster_endpoint(object, tenant=tenant, ...)
-    ade_database(clus, database=database)
+    clus <- ade_cluster_endpoint(cluster=cluster, location=location, tenant=tenant, ...)
+    ade_database_endpoint(clus, object)
 }