remove dependency on packages in Suggests:

Author: edzer

tests/aggregate.R

@@ -6,15 +6,17 @@ s = st_sf(a = 1:2, geom = st_sfc(pl1, pl2))
 (a = aggregate(s, list(c(1,1)), mean, do_union = FALSE))
 (a = aggregate(s, list(c(1,1)), mean, do_union = TRUE))
 # expect_warning(st_cast(a, "POINT"))
-demo(meuse_sf, echo = FALSE, ask = FALSE)
-a = aggregate(meuse_sf, list(meuse_sf$soil), mean)
-attributes(a)$agr
-a = aggregate(meuse_sf, list(soil = meuse_sf$soil), mean)
-attributes(a)$agr
-a = aggregate(meuse_sf, list(meuse_sf$soil, meuse_sf$ffreq), mean)
-attributes(a)$agr
-a = aggregate(meuse_sf, list(soil = meuse_sf$soil, ff = meuse_sf$ffreq), mean)
-attributes(a)$agr
+if (require(sp, quietly = TRUE)) {
+ demo(meuse_sf, echo = FALSE, ask = FALSE)
+ a = aggregate(meuse_sf, list(meuse_sf$soil), mean)
+ print(attributes(a)$agr)
+ a = aggregate(meuse_sf, list(soil = meuse_sf$soil), mean)
+ print(attributes(a)$agr)
+ a = aggregate(meuse_sf, list(meuse_sf$soil, meuse_sf$ffreq), mean)
+ print(attributes(a)$agr)
+ a = aggregate(meuse_sf, list(soil = meuse_sf$soil, ff = meuse_sf$ffreq), mean)
+ print(attributes(a)$agr)
+}
 
 # aggregate by sf/sfc
 a = st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0)))) * 2

tests/crs.R

@@ -41,15 +41,17 @@ if (sf_extSoftVersion()["USE_PROJ_H"] == "true" || sf_proj_info("have_datum_file
   "datum files not installed"
 }
 
-x0 = sp::CRS("+init=epsg:4326")
-cat(sp::wkt(x0), "\n")
-x = st_crs(x0)
-x
+if (require(sp, quietly = TRUE)) {
+ x0 = sp::CRS("+init=epsg:4326")
+ cat(sp::wkt(x0), "\n")
+ x = st_crs(x0)
+ print(x)
 
-y0 = st_crs(4326)
-y0
-y = as(y0, "CRS")
-cat(sp::wkt(y), "\n")
+ y0 = st_crs(4326)
+ y0
+ y = as(y0, "CRS")
+ cat(sp::wkt(y), "\n")
+}
 
 # https://github.com/r-spatial/sf/issues/1170
 g = st_as_sfc("POLYGON ((-61.66957 10.69214, -61.565 10.75728, -61.37453 10.77654, -61.40721 10.60681, -61.66957 10.69214))")

tests/dist.R

@@ -1,5 +1,4 @@
 suppressPackageStartupMessages(library(sf))
-library(sp)
 suppressPackageStartupMessages(library(units))
 
 x = st_sfc(
@@ -19,17 +18,19 @@ st_point(c(4,0)),
 crs = 4326
 )
 
-d.sf = st_distance(x, y)
-d.sp = spDists(as(x, "Spatial"), as(y, "Spatial"))
-units(d.sp) = as_units("km")
-round(d.sf - d.sp, 7)
+if (require(sp, quietly = TRUE)) {
+ d.sf = st_distance(x, y)
+ d.sp = spDists(as(x, "Spatial"), as(y, "Spatial"))
+ units(d.sp) = as_units("km")
+ print(round(d.sf - d.sp, 7))
 
 #summary(unclass(d.sf) - d.sp)
 
-st_crs(x) = st_crs(y) = NA
-d.sf = st_distance(x, y)
-d.sp = spDists(as(x, "Spatial"), as(y, "Spatial"))
-round(d.sf - d.sp, 7)
+ st_crs(x) = st_crs(y) = NA
+ d.sf = st_distance(x, y)
+ d.sp = spDists(as(x, "Spatial"), as(y, "Spatial"))
+ print(round(d.sf - d.sp, 7))
+}
 
 # st_length:
 st_crs(y) = 4326