closes #37

rubenarslan · Oct 18, 2024 · e8c5f99 · e8c5f99
1 parent 2a05d81
commit e8c5f99
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/connect_to_formr.R b/R/connect_to_formr.R
@@ -19,7 +19,7 @@ if (getRversion() >= "2.15.1")  utils::globalVariables(c(".")) # allow dplyr, ma
 #' }
 formr_connect <- function(email = NULL, password = NULL, host = formr_last_host(), keyring = NULL) {
 	formr_last_host(host)  # Store the host
-	if (!missing(keyring) || is.null(keyring)) {
+	if (!missing(keyring) && !is.null(keyring)) {
 		if (is.null(email) && 
 				length(keyring::key_list(keyring)[["username"]]) ==  1) {
 			email <- keyring::key_list(keyring)[["username"]]