fix minor issues for CRAN

R/GSLayer.R

@@ -132,7 +132,7 @@ GSLayer <- R6Class("GSLayer",
     #'@param style style, object o class \link{GSStyle} or \code{character}
     #'@return \code{TRUE} if added, \code{FALSE} otherwise
     addStyle = function(style){
-      if(class(style) == "character") style <- GSStyle$new(xml=NULL, name = style)
+      if(is(style, "character")) style <- GSStyle$new(xml=NULL, name = style)
       startNb = length(self$styles)
       availableStyles <- sapply(self$styles, function(x){x$name})
       if(length(which(availableStyles == style$name)) == 0){
@@ -146,7 +146,7 @@ GSLayer <- R6Class("GSLayer",
     #'@param style style, object o class \link{GSStyle} or \code{character}
     #'@return \code{TRUE} if deleted, \code{FALSE} otherwise
     delStyle = function(style){
-      if(class(style) == "character") style <- GSStyle$new(xml=NULL, name = style)
+      if(is(style, "character")) style <- GSStyle$new(xml=NULL, name = style)
       startNb = length(self$styles)
       availableStyles <- sapply(self$styles, function(x){x$name})
       self$styles = self$styles[which(availableStyles != style$name)]

R/GSLayerGroup.R

@@ -197,7 +197,7 @@ GSLayerGroup <- R6Class("GSLayerGroup",
      #'@param style style
      #'@return \code{TRUE} if added, \code{FALSE} otherwise
      addStyle = function(style){
-        if(class(style) == "character") style <- GSStyle$new(xml=NULL, name = style)
+        if(is(style, "character")) style <- GSStyle$new(xml=NULL, name = style)
         startNb = length(self$styles)
         self$styles = c(self$styles, style)
         endNb = length(self$styles)

R/GSManager.R

@@ -178,7 +178,7 @@ GSManager <- R6Class("GSManager",
           list_of_methods <- rev(names(man))
           for(method in list_of_methods){
             methodObj <- man[[method]]
-            if(!(method %in% names(self)) && class(methodObj) == "function"){
+            if(!(method %in% names(self)) && is(methodObj,"function")){
               self[[method]] <- methodObj
               environment(self[[method]]) <- environment(self$connect)
             } 

README.md

@@ -21,4 +21,4 @@ A user manual is available at [https://github.com/eblondel/geosapi/wiki](https:/
 
 Many thanks to the following organizations that have provided fundings for strenghtening the ``geosapi`` package:
 
-<a href="https://unepgrid.ch/en"><img height=100 width=200 src="https://www.weadapt.org/sites/weadapt.org/files/styles/large/public/screenshot_2021-05-25_at_16.19.32_0.png?itok=iiEMf_S3"></a><a href="http://www.fao.org"><img height=100 width=200 src="http://www.fao.org/fileadmin/templates/family-farming-decade/images/FAO-IFAD-Logos/FAO-Logo-EN.svg"></a>
+<a href="https://unepgrid.ch/en"><img height=100 width=200 src="https://www.weadapt.org/sites/weadapt.org/files/styles/large/public/screenshot_2021-05-25_at_16.19.32_0.png?itok=iiEMf_S3"></a><a href="https://www.fao.org/home/en/"><img height=100 width=200 src="https://www.fao.org/fileadmin/templates/family-farming-decade/images/FAO-IFAD-Logos/FAO-Logo-EN.svg"></a>

docs/pkgdown.yml

@@ -2,5 +2,5 @@ pandoc: 2.17.1.1
 pkgdown: 2.0.2
 pkgdown_sha: ~
 articles: {}
-last_built: 2022-05-02T08:16Z
+last_built: 2022-05-02T11:10Z