#6 method to list groups

DESCRIPTION

@@ -2,7 +2,7 @@ Package: geonapi
 Type: Package
 Title: 'GeoNetwork' API R Interface
 Version: 0.3-0
-Date: 2019-01-29
+Date: 2019-03-21
 Authors@R: c(person("Emmanuel", "Blondel", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0002-5870-5762")))
 Maintainer: Emmanuel Blondel <[email protected]>
 Description: Provides an R interface to the 'GeoNetwork' API (<https://geonetwork-opensource.org/#api>) allowing to upload and publish metadata in a 'GeoNetwork' web-application and exposte it to OGC CSW.

R/GNManager.R

@@ -266,6 +266,37 @@ GNManager <- R6Class("GNManager",
       return(class(self)[1])
     },
 
+    #getGroups
+    #---------------------------------------------------------------------------
+    getGroups = function(){
+      out <- NULL
+      self$INFO("Getting user groups...")
+      req <- GNUtils$GET(
+        url = self$getUrl(),
+        path = "/xml.info",
+        token = private$token, cookies = private$cookies,
+        user = private$user, pwd = private$pwd,
+        query = list(type = "groups"),
+        verbose = self$verbose.debug
+      )
+      if(status_code(req) == 200){
+        self$INFO("Successfully fetched user groups!")
+        xml <- GNUtils$parseResponseXML(req, "UTF-8")
+        xml.groups <- getNodeSet(xml, "//group/group")
+        out <- do.call("rbind", lapply(xml.groups, function(xml.group){
+          out.group <- data.frame(
+            id = xmlGetAttr(xml.group, "id"),
+            name = xmlValue(xmlChildren(xml.group)$name),
+            stringsAsFactors = FALSE
+          )
+          return(out.group)
+        }))
+      }else{
+        self$ERROR("Error while fetching user groups")
+      }
+      return(out)
+    },
+
     #insertMetadata
     #---------------------------------------------------------------------------
     insertMetadata = function(xml = NULL, file = NULL, geometa = NULL, group,

R/geonapi.R

@@ -15,7 +15,7 @@
 #'    Package: \tab geonapi\cr
 #'    Type: \tab Package\cr
 #'    Version: \tab 0.3-0\cr
-#'    Date: \tab 2019-01-29\cr
+#'    Date: \tab 2019-03-21\cr
 #'    License: \tab MIT\cr
 #'    LazyLoad: \tab yes\cr
 #'  }