Fix CHECK errors

ropensci · Apr 25, 2024 · d2d6580 · d2d6580
1 parent 64bc230
commit d2d6580
Show file tree

Hide file tree

Showing 6 changed files with 89 additions and 22 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -48,6 +48,6 @@ Config/testthat/edition: 3
 Config/testthat/parallel: true
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Depends: 
     R (>= 2.10)
diff --git a/NAMESPACE b/NAMESPACE
@@ -3,6 +3,10 @@
 S3method(add_bbox_buffer,Raster)
 S3method(add_bbox_buffer,SpatRaster)
 S3method(add_bbox_buffer,sf)
+S3method(geom_spatial_rgb_internal,RasterStack)
+S3method(geom_spatial_rgb_internal,SpatRaster)
+S3method(geom_spatial_rgb_internal,character)
+S3method(geom_spatial_rgb_internal,default)
 S3method(get_tiles,Raster)
 S3method(get_tiles,SpatRaster)
 S3method(get_tiles,list)
@@ -11,6 +15,10 @@ S3method(get_tiles,sfc)
 S3method(set_bbox_side_length,Raster)
 S3method(set_bbox_side_length,SpatRaster)
 S3method(set_bbox_side_length,sf)
+S3method(stat_spatial_rgb_internal,RasterStack)
+S3method(stat_spatial_rgb_internal,SpatRaster)
+S3method(stat_spatial_rgb_internal,character)
+S3method(stat_spatial_rgb_internal,default)
 export(StatSpatialRGB)
 export(add_bbox_buffer)
 export(combine_overlays)

diff --git a/R/geom_spatial_rgb.R b/R/geom_spatial_rgb.R
@@ -129,6 +129,7 @@ geom_spatial_rgb_internal <- function(data = NULL,
 }
 
 
+#' @export
 geom_spatial_rgb_internal.character <- function(data = NULL,
                                                 mapping = NULL,
                                                 stat = "spatialRGB",
@@ -156,6 +157,7 @@ geom_spatial_rgb_internal.character <- function(data = NULL,
   )
 }
 
+#' @export
 geom_spatial_rgb_internal.RasterStack <- function(data = NULL,
                                                   mapping = NULL,
                                                   stat = "spatialRGB",
@@ -182,6 +184,7 @@ geom_spatial_rgb_internal.RasterStack <- function(data = NULL,
   )
 }
 
+#' @export
 geom_spatial_rgb_internal.SpatRaster <- function(data = NULL,
                                                  mapping = NULL,
                                                  stat = "spatialRGB",
@@ -222,6 +225,7 @@ geom_spatial_rgb_internal.SpatRaster <- function(data = NULL,
   )
 }
 
+#' @export
 geom_spatial_rgb_internal.default <- function(data = NULL,
                                               mapping = NULL,
                                               stat = "spatialRGB",
@@ -325,6 +329,7 @@ stat_spatial_rgb_internal <- function(data = NULL,
   UseMethod("stat_spatial_rgb_internal")
 }
 
+#' @export
 stat_spatial_rgb_internal.character <- function(data = NULL,
                                                 mapping = NULL,
                                                 geom = "raster",
@@ -349,6 +354,7 @@ stat_spatial_rgb_internal.character <- function(data = NULL,
   )
 }
 
+#' @export
 stat_spatial_rgb_internal.RasterStack <- function(data = NULL,
                                                   mapping = NULL,
                                                   geom = "raster",
@@ -367,6 +373,7 @@ stat_spatial_rgb_internal.RasterStack <- function(data = NULL,
   )
 }
 
+#' @export
 stat_spatial_rgb_internal.SpatRaster <- function(data = NULL,
                                                  mapping = NULL,
                                                  geom = "raster",
@@ -399,6 +406,7 @@ stat_spatial_rgb_internal.SpatRaster <- function(data = NULL,
   )
 }
 
+#' @export
 stat_spatial_rgb_internal.default <- function(data = NULL,
                                               mapping = NULL,
                                               geom = "raster",

diff --git a/man/geom_spatial_rgb.Rd b/man/geom_spatial_rgb.Rd
diff --git a/tests/testthat/_snaps/add_bbox_buffer.md b/tests/testthat/_snaps/add_bbox_buffer.md
@@ -2,7 +2,8 @@
 
     Code
       set_bbox_side_length(df_sf, 8000)
-    Warning <rlang_warning>
+    Condition
+      Warning:
       No CRS associated with input data.
       i Assuming EPSG:4326.
     Output
@@ -11,13 +12,14 @@
       Dimension:     XY
       Bounding box:  xmin: -73.97357 ymin: 44.07662 xmax: -73.87337 ymax: 44.14857
       Geodetic CRS:  WGS 84
-    Message <simpleMessage>
+    Message
       POLYGON ((-73.97357 44.07662, -73.87337 44.0766...
 
 ---
 
     Code
       set_bbox_side_length(df_sf, 8000, error_crs = TRUE)
-    Error <rlang_error>
-      No CRS associated with input data.
+    Condition
+      Error in `add_bbox_buffer()`:
+      ! No CRS associated with input data.
 
diff --git a/tests/testthat/test-combine_overlays.R b/tests/testthat/test-combine_overlays.R
@@ -1,4 +1,5 @@
 test_that("combine_overlays works", {
+  skip_if_not_installed("tiff")
   x_tmp <- tempfile(fileext = ".png")
   y_tmp <- tempfile(fileext = ".png")