login function naming consistency

icarda-git · Dec 10, 2023 · d2a8ad3 · d2a8ad3
1 parent abcab1b
commit d2a8ad3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/qbms.R b/R/qbms.R
@@ -604,7 +604,7 @@ set_token <- function(token, user = '', expires_in = NULL) {
 #' @author Khaled Al-Shamaa, \email{k.el-shamaa@cgiar.org}
 #' @export
 
-oauth2_login <- function(authorize_url, access_url, client_id, client_secret = NULL, redirect_uri = "http://localhost:1410", oauth2_cache = FALSE) {
+login_oauth2 <- function(authorize_url, access_url, client_id, client_secret = NULL, redirect_uri = "http://localhost:1410", oauth2_cache = FALSE) {
   app <- httr::oauth_app(appname = "QBMS", key = client_id, secret = client_secret, redirect_uri = redirect_uri)
 
   endpoint <- httr::oauth_endpoint(authorize = authorize_url, access = access_url)

diff --git a/vignettes/ebs_example.R b/vignettes/ebs_example.R
@@ -33,7 +33,7 @@ set_qbms_config(url = 'https://cbbrapi-qa.ebsproject.org', engine = 'ebs', brapi
 #'
 #' https://jwt.io/ allows you to decode, verify and generate JWT.
 
-oauth2_login(authorize_url = 'https://auth-dev.ebsproject.org/oauth2/authorize', 
+login_oauth2(authorize_url = 'https://auth-dev.ebsproject.org/oauth2/authorize', 
              access_url    = 'https://auth-dev.ebsproject.org/oauth2/token', 
              client_id     = '5crahiqorgj0lppt3n9dkulkst', 
              client_secret = '1sf4tipbp4arj3d5cncjmrvk9c2cu30gor5618hnh8rgkp6v5fs')