#31 coverages support & tests

NAMESPACE

@@ -44,6 +44,7 @@ export(GSVirtualTableParameter)
 export(GSWorkspace)
 export(GSWorkspaceManager)
 export(GSWorkspaceSettings)
+export(GSWorldImageCoverageStore)
 import(XML)
 import(httr)
 import(keyring)

R/GSAbstractCoverageStore.R

@@ -31,7 +31,7 @@ GSAbstractCoverageStore <- R6Class("GSAbstractCoverageStore",
  public = list(
    url = NULL,
    initialize = function(xml = NULL, type = NULL,
-                         name = NULL, description = "", enabled = TRUE, url){
+                         name = NULL, description = "", enabled = TRUE, url = NULL){
      super$initialize(xml = xml, storeType = private$STORE_TYPE, type = type, 
                       name = name, description = description, enabled = enabled)
      if(!missing(xml) & !is.null(xml)){

R/GSArcGridCoverageStore.R

@@ -23,7 +23,7 @@ GSArcGridCoverageStore <- R6Class("GSArcGridCoverageStore",
   ),
   public = list(
    url = NULL,
-   initialize = function(xml = NULL, name = NULL, description = "", enabled = TRUE, url){
+   initialize = function(xml = NULL, name = NULL, description = "", enabled = TRUE, url = NULL){
      super$initialize(xml = xml, type = private$TYPE, 
                       name = name, description = description, enabled = enabled, url = url)
    }

R/GSCoverageStoreManager.R

@@ -245,7 +245,7 @@ GSCoverageStoreManager <- R6Class("GSCoverageStoreManager",
         pwd = private$keyring_backend$get(service = private$keyring_service, username = private$user),
         path = sprintf("/workspaces/%s/coveragestores.xml", ws),
         content = GSUtils$getPayloadXML(coverageStore),
-        contentType = "text/xml",
+        contentType = "application/xml",
         verbose = self$verbose.debug
       )
       if(status_code(req) == 201){
@@ -368,7 +368,7 @@ GSCoverageStoreManager <- R6Class("GSCoverageStoreManager",
         pwd = private$keyring_backend$get(service = private$keyring_service, username = private$user),
         path = sprintf("/workspaces/%s/coveragestores/%s/coverages.xml", ws, cs),
         content = GSUtils$getPayloadXML(coverage),
-        contentType = "text/xml",
+        contentType = "application/xml",
         verbose = self$verbose.debug
       )
       if(status_code(req) == 201){
@@ -487,7 +487,7 @@ GSCoverageStoreManager <- R6Class("GSCoverageStoreManager",
         ws = ws, cs = cs, 
         endpoint = endpoint, extension = "geotiff", filename = filename,
         configure = configure, update = update, 
-        contentType = "image/geotiff"
+        contentType = "text/plain"
       ))
     },
 
@@ -511,7 +511,7 @@ GSCoverageStoreManager <- R6Class("GSCoverageStoreManager",
         ws = ws, cs = cs, 
         endpoint = endpoint, extension = "arcgrid", filename = filename,
         configure = configure, update = update, 
-        contentType = "image/arcgrid"
+        contentType = "text/plain"
       ))
     },
 

R/GSGeoTIFFCoverageStore.R

@@ -23,7 +23,7 @@ GSGeoTIFFCoverageStore <- R6Class("GSGeoTIFFCoverageStore",
    ),
    public = list(
      url = NULL,
-     initialize = function(xml = NULL, name = NULL, description = "", enabled = TRUE, url){
+     initialize = function(xml = NULL, name = NULL, description = "", enabled = TRUE, url = NULL){
        super$initialize(xml = xml, type = private$TYPE, 
                         name = name, description = description, enabled = enabled, url = url)
      }

R/GSImageMosaicCoverageStore.R

@@ -23,7 +23,7 @@ GSImageMosaicCoverageStore <- R6Class("GSImageMosaicCoverageStore",
    ),
    public = list(
      url = NULL,
-     initialize = function(xml = NULL, name = NULL, description = "", enabled = TRUE, url){
+     initialize = function(xml = NULL, name = NULL, description = "", enabled = TRUE, url = NULL){
        super$initialize(xml = xml, type = private$TYPE, 
                         name = name, description = description, enabled = enabled, url = url)
      }

R/GSUtils.R

@@ -101,7 +101,7 @@ GSUtils$PUT <- function(url, user, pwd, path,
       add_headers(
         "User-Agent" = GSUtils$getUserAgent(),
         "Authorization" = paste("Basic", GSUtils$getUserToken(user, pwd)),
-        "Content-type" = contentType
+        "Content-Type" = contentType
       ),    
       body = body
     )
@@ -120,7 +120,7 @@ GSUtils$POST <- function(url, user, pwd, path, content, contentType, verbose = F
       add_headers(
         "User-Agent" = GSUtils$getUserAgent(),
         "Authorization" = paste("Basic", GSUtils$getUserToken(user, pwd)),
-        "Content-type" = contentType
+        "Content-Type" = contentType
       ),    
       body = content
     )

R/GSWorldImageCoverageStore.R

@@ -0,0 +1,31 @@
+#' Geoserver REST API WorldImageCoverageStore
+#'
+#' @docType class
+#' @importFrom R6 R6Class
+#' @export
+#' @keywords geoserver rest api CoverageStore WorldImage
+#' @return Object of \code{\link{R6Class}} for modelling a GeoServer WorldImage CoverageStore
+#' @format \code{\link{R6Class}} object.
+#'
+#' @section Methods:
+#' \describe{
+#'  \item{\code{new(xml, name, description, enabled, url)}}{
+#'    This method is used to instantiate a \code{GSWorldImageCoverageStore}
+#'  }
+#' }
+#' 
+#' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com>
+#'
+GSWorldImageCoverageStore <- R6Class("GSWorldImageCoverageStore",
+  inherit = GSAbstractCoverageStore,
+  private = list(
+    TYPE = "WorldImage"
+  ),
+  public = list(
+    url = NULL,
+    initialize = function(xml = NULL, name = NULL, description = "", enabled = TRUE, url = NULL){
+      super$initialize(xml = xml, type = private$TYPE, 
+                       name = name, description = description, enabled = enabled, url = url)
+    }
+  )                     
+)