fix is call (cran note)

eblondel · Jun 1, 2022 · 13cadd5 · 13cadd5
1 parent 4a92331
commit 13cadd5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/GSUtils.R b/R/GSUtils.R
@@ -162,7 +162,7 @@ GSUtils$getPayloadXML <- function(obj){
 GSUtils$setBbox = function(minx, miny, maxx, maxy, bbox = NULL, crs){
 
   if(!missing(bbox) & !is.null(bbox)){
-    if(class(bbox) != "matrix") stop("Bbox is not a valid bounding box matrix")
+    if(!is(bbox,"matrix")) stop("Bbox is not a valid bounding box matrix")
     if(all(dim(bbox) != c(2,2))) stop("Bbox is not a valid bounding box matrix")
     minx = bbox[1L,1L]
     miny = bbox[2L,1L]