support #32

eblondel · Jun 17, 2024 · 9faa693 · 9faa693
1 parent 6b46ddf
commit 9faa693
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 6 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,16 +1,22 @@
+## [geonapi 0.7-3](https://github.com/eblondel/geonapi) | [![CRAN_Status_Badge](https://img.shields.io/badge/CRAN-published-blue.svg)](https://github.com/eblondel/geonapi)
+
+**Enhancements**
+
+* [#32](https://github.com/eblondel/geonapi/issues/32) Switch from POST to GET in OpenAPI login
+
 ## [geonapi 0.7-2](https://github.com/eblondel/geonapi) | [![CRAN_Status_Badge](https://img.shields.io/badge/CRAN-published-blue.svg)](https://github.com/eblondel/geonapi)
 
 **Bug fixes**
 
 * [#31](https://github.com/eblondel/geonapi/issues/31) Empty response for thumbnail publication
 
-## [geonapi 0.7-1](https://github.com/eblondel/geonapi) | [![CRAN_Status_Badge](https://img.shields.io/badge/CRAN-published-blue.svg)](https://github.com/eblondel/geonapi)
+## [geonapi 0.7-1](https://cran.r-project.org/src/contrib/Archive/geonapi/geonapi_0.7-1.tar.gz) | [![CRAN_Status_Badge](https://img.shields.io/badge/CRAN-published-blue.svg)](https://cran.r-project.org/src/contrib/Archive/geonapi/geonapi_0.7-1.tar.gz)
 
 **Enhancements**
 
 * [#30](https://github.com/eblondel/geonapi/issues/30) Consolidate getTags with rbind.fill instead of rbind
 
-## [geonapi 0.7](https://github.com/eblondel/geonapi) | [![CRAN_Status_Badge](https://img.shields.io/badge/CRAN-published-blue.svg)](https://github.com/eblondel/geonapi)
+## [geonapi 0.7](https://cran.r-project.org/src/contrib/Archive/geonapi/geonapi_0.7.tar.gz) | [![CRAN_Status_Badge](https://img.shields.io/badge/CRAN-published-blue.svg)](https://cran.r-project.org/src/contrib/Archive/geonapi/geonapi_0.7.tar.gz)
 
 
 * [#26](https://github.com/eblondel/geonapi/issues/26) Improve error handling for metadata upload

diff --git a/R/GNOpenAPIManager.R b/R/GNOpenAPIManager.R
@@ -61,9 +61,9 @@ GNOpenAPIManager <- R6Class("GNOpenAPIManager",
     #'@param pwd pwd   
     login = function(user, pwd){
 
-      req <- GNUtils$POST(
+      req <- GNUtils$GET(
         url = paste0(self$getUrl(), "/", self$lang), path = "/info?type=me",
-        user = user, pwd = pwd, content = NULL, contentType = NULL,
+        user = user, pwd = pwd,
         verbose = TRUE 
       )
 
@@ -82,9 +82,9 @@ GNOpenAPIManager <- R6Class("GNOpenAPIManager",
 
       keyring_token <- private$getToken()
       if(!is.null(keyring_token)){
-        req <- GNUtils$POST(
+        req <- GNUtils$GET(
           url = paste0(self$getUrl(), "/", self$lang), path = "/info?type=me",
-          user = user, pwd = private$getPwd(), token = keyring_token, cookies = private$cookies, content = NULL, contentType = NULL,
+          user = user, pwd = private$getPwd(), token = keyring_token, cookies = private$cookies,
           verbose = TRUE 
         )
       }