fixed format in stopifnot

R/main.R

@@ -60,9 +60,9 @@ rasterizeMatrix <- function(data, pos, bbox, resolution = 100, fun = "mean", n_t
   BiocParallel::bpstart(BPPARAM)
 
   ## check to see if bbox input is of class numeric or bbox, if numeric, convert to st_bbox
-  stopifnot(class(bbox) %in% c('numeric', 'bbox'), "bbox must be of class 'numeric' or 'bbox' (as generated by sf::st_bbox)")
+  stopifnot("bbox must be of class 'numeric' or 'bbox' (as generated by sf::st_bbox)" = class(bbox) %in% c('numeric', 'bbox'))
   if (class(bbox)=='numeric') {
-    stopifnot(length(bbox)==4, 'Bounding box for rasterization must be defined by a numeric vector of length four, with xmin, ymin, xmax and ymax values or object of class bbox (as generated by sf::st_bbox)')
+    stopifnot("Bounding box for rasterization must be defined by a numeric vector of length four, with xmin, ymin, xmax and ymax values or object of class bbox (as generated by sf::st_bbox)" = length(bbox)==4)
     bbox <- sf::st_bbox(c(xmin = bbox[1], ymin = bbox[2], xmax = bbox[3], ymax = bbox[4]))
   } 
   ## create grid for rasterization