Perform validation in creds_key() helper function

rstudio · Apr 22, 2020 · 62d40b7 · 62d40b7
1 parent 67d6ecb
commit 62d40b7
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/creds_helpers.R b/R/creds_helpers.R
@@ -134,6 +134,8 @@ creds_envvar <- function(user = NULL,
 #' @export
 creds_key <- function(id) {
 
+  validate_keyring_available(fn_name = "creds_key")
+
   creds_list <- get_smtp_keyring_creds(id = id)
 
   class(creds_list) <- c("creds_key", "blastula_creds")