support #65

R/GSMonitorManager.R

@@ -0,0 +1,42 @@
+#' Geoserver REST API Monitor Manager
+#'
+#' @docType class
+#' @importFrom R6 R6Class
+#' @export
+#' @keywords geoserver rest api Layer
+#' @return Object of \code{\link{R6Class}} with methods for the GeoServer Monitoring extension.
+#' @format \code{\link{R6Class}} object.
+#' 
+#' @examples
+#' \dontrun{
+#'    GSMonitorManager$new("http://localhost:8080/geoserver", "admin", "geoserver")
+#'  }
+#' 
+#' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com>
+#'
+GSMonitorManager <- R6Class("GSMonitorManager",
+  inherit = GSManager,
+
+  public = list(
+
+    #'@description Get the requests
+    #'@return an object of class \code{data.frame}
+    getRequests = function(offset = 0){
+      self$INFO("Fetching requests")
+      tmp = tempfile(fileext = ".csv")
+      req <- GSUtils$GET(
+        self$getUrl(), private$user, 
+        private$keyring_backend$get(service = private$keyring_service, username = private$user),
+        sprintf("/monitor/requests.csv?order=startTime;DESC&count=100&offset=%s", offset), verbose = self$verbose.debug, filename = tmp)
+      out <- NULL
+      if(status_code(req) == 200){
+        out <- readr::read_csv(tmp)
+        unlink(tmp)
+        self$INFO(sprintf("Successfully fetched %s requests", nrow(out)))
+      }else{
+        self$ERROR("Error while fetching requests")
+      }
+      return(out)
+    }
+  )
+)