hardcode what username to get the pwd for

Even if we only support storing one set of iasset credentials at the moment, if this ever changes in the future this line will ensure we'll be fetching the right one.

R/get_access_token.R

@@ -74,7 +74,8 @@ get_access_token <-
     login_response <- login_request %>%
       httr2::req_body_form(
         username = username,
-        password = openssl::md5(keyring::key_get("iasset_password")),
+        password = openssl::md5(keyring::key_get("iasset_password",
+                                                 username = username)),
         domain = "riparias",
         version = "9.7"
       ) %>%