From 62d40b73e65b2923df355eed50c93d7f803fa262 Mon Sep 17 00:00:00 2001 From: Richard Iannone Date: Wed, 22 Apr 2020 11:23:20 -0400 Subject: [PATCH] Perform validation in `creds_key()` helper function --- R/creds_helpers.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/R/creds_helpers.R b/R/creds_helpers.R index fd622efb..88877886 100644 --- 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")