check if a username is set

inbo · Apr 2, 2024 · 81c8510 · 81c8510
1 parent d1ecd1d
commit 81c8510
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/get_access_token.R b/R/get_access_token.R
@@ -28,6 +28,15 @@ get_access_token <-
     # check if a keyring exists
     iasset_keyring_exists <-
       "iasset_password" %in% dplyr::pull(keyring::key_list(), "service")
+    ## check if a username is set
+    iasset_username_missing <-
+      dplyr::filter(
+        keyring::key_list(),
+        service == "iasset_password"
+      ) %>%
+      dplyr::pull("username") %>%
+      is.na()
+
     # check that only one keyring is set
     number_of_keyrings <- nrow(keyring::key_list(service = "iasset_password"))
     assertthat::assert_that(number_of_keyrings <= 1,