change aws_db_rds_create and aws_db_redshift_create to return invisble()

- update return docs for both fxns
- change test for both fxns

R/database-rds.R

@@ -105,9 +105,8 @@ aws_db_rds_con <- function(
 #' available for returning. That wait can be around 5 - 7 minutes. You can
 #' instead set `wait = FALSE` and then check on the status of the instance
 #' yourself in the AWS dashboard.
-#' @return a list with methods for interfacing with RDS;
-#' see <https://www.paws-r-sdk.com/docs/rds/>. also prints useful
-#' connection information after instance is available.
+#' @return returns `NULL`, this function called for the side effect of
+#' creating an RDS instance
 aws_db_rds_create <-
   function(id, class, user = NULL, pwd = NULL, dbname = "dev",
            engine = "mariadb", storage = 20,
@@ -154,7 +153,7 @@ aws_db_rds_create <-
       )
     }
     if (verbose) info(id, instance_con_info, "aws_db_rds_con")
-    return(env64$rds)
+    invisible()
   }
 
 #' Get the `paws` RDS client

R/database-redshift.R

@@ -93,9 +93,8 @@ aws_db_redshift_con <- function(user, pwd, id = NULL, host = NULL, port = NULL,
 #' @note See above link to `create_cluster` docs for details on requirements
 #' for each parameter
 #' @inheritSection aws_db_rds_create Waiting
-#' @return a list with methods for interfacing with Redshift;
-#' see <https://www.paws-r-sdk.com/docs/redshift/>. also prints useful
-#' connection information after cluster is available.
+#' @return returns `NULL`, this function called for the side effect of
+#' creating an Redshift instance
 aws_db_redshift_create <-
   function(id, user, pwd, dbname = "dev", cluster_type = "multi-node",
            node_type = "dc2.large", number_nodes = 2,
@@ -113,7 +112,7 @@ aws_db_redshift_create <-
       wait_for_cluster(id)
     }
     if (verbose) info(id, cluster_con_info, "aws_db_redshift_con")
-    return(env64$redshift)
+    invisible()
   }
 
 #' Get the `paws` Redshift client

tests/testthat/test-db-rds.R

@@ -10,10 +10,8 @@ test_that("aws_db_rds_create", {
     )
   })
 
-  # Note: the paws RDS client is just a list of fxns, hard
-  # to test it
-  expect_type(z, "list")
-  expect_type(z[[1]], "closure")
+  # retuns NULL b/c invisible()
+  expect_null(z)
 })
 
 test_that("aws_db_rds_client", {

tests/testthat/test-db-redshift.R

@@ -10,10 +10,8 @@ test_that("aws_db_redshift_create", {
     )
   })
 
-  # Note: the paws Redshift client is just a list of fxns, hard
-  # to test it
-  expect_type(z, "list")
-  expect_type(z[[1]], "closure")
+  # retuns NULL b/c invisible()
+  expect_null(z)
 })
 
 test_that("aws_db_redshift_client", {