Merge pull request #81 from getwilds/aws-has-creds

Examples rework: add fxn `aws_has_creds`, use in one family of fxns

DESCRIPTION

@@ -25,6 +25,7 @@ Imports:
     lubridate,
     magrittr,
     paws,
+    paws.common,
     purrr,
     rlang,
     tibble,

NAMESPACE

@@ -31,6 +31,7 @@ export(aws_group_create)
 export(aws_group_delete)
 export(aws_group_exists)
 export(aws_groups)
+export(aws_has_creds)
 export(aws_policies)
 export(aws_policy)
 export(aws_policy_attach)
@@ -150,6 +151,7 @@ importFrom(paws,iam)
 importFrom(paws,rds)
 importFrom(paws,redshift)
 importFrom(paws,s3)
+importFrom(paws.common,locate_credentials)
 importFrom(purrr,compact)
 importFrom(purrr,discard)
 importFrom(purrr,flatten)

R/clients.R

@@ -7,7 +7,7 @@
 #' See [connections] for more information.
 #' @return An S3 list with class 'sixtyfour_client'
 #' @seealso [paws_clients]
-#' @examplesIf interactive()
+#' @examplesIf aws_has_creds()
 #' con <- con_s3fs()
 #' con
 #' con_s3fs()$file_copy
@@ -149,10 +149,9 @@ print.sixtyfour_client <- function(x, ...) {
 #' - `con_ce`: a list with methods for interfacing with Cost Explorer;
 #' <https://www.paws-r-sdk.com/docs/costexplorer/>
 #'
-#' @examplesIf interactive()
+#' @examplesIf aws_has_creds()
 #' z <- con_iam()
 #' z
-#' z$get_group
 #'
 #' withr::with_envvar(
 #'   c("AWS_PROFILE" = "localstack"),

R/utils.R

@@ -232,3 +232,16 @@ stop_if_not <- function(cond, msg, .envir = parent.frame()) {
 stop_if <- function(cond, msg, .envir = parent.frame()) {
   if (cond) cli::cli_abort(msg, .envir = .envir)
 }
+
+#' Check if appropriate AWS credentials are available
+#' @export
+#' @importFrom paws.common locate_credentials
+#' @examples
+#' aws_has_creds()
+aws_has_creds <- function() {
+  res <- tryCatch(
+    paws.common::locate_credentials(),
+    error = \(e) e
+  )
+  !inherits(res, "error")
+}