Running examples in ‘SpaDES.tools-Ex.R’ failed
The error most likely occurred in:

> ### Name: cir
> ### Title: Identify pixels in a circle or ring (donut) around an object.
> ### Aliases: cir
> 
> ### ** Examples
> 
> library(data.table)
> library(sp)
> library(raster)
> library(quickPlot)
> 
> set.seed(1462)
> 
> if (require(RandomFields)) {
+   # circle centred
+   ras <- raster(extent(0, 15, 0, 15), res = 1, val = 0)
+   middleCircle <- cir(ras)
+   ras[middleCircle[, "indices"]] <- 1
+   circlePoints <- SpatialPoints(middleCircle[, c("x", "y")])
+   if (interactive()) {
+     clearPlot()
+     Plot(ras)
+     Plot(circlePoints, addTo = "ras")
+   }
+ 
+   # circles non centred
+   ras <- randomPolygons(ras, numTypes = 4)
+   n <- 2
+   agent <- SpatialPoints(coords = cbind(x = stats::runif(n, xmin(ras), xmax(ras)),
+                                         y = stats::runif(n, xmin(ras), xmax(ras))))
+ 
+   cirs <- cir(ras, agent, maxRadius = 15, simplify = TRUE) ## TODO: empty with some seeds! e.g. 1642
+   cirsSP <- SpatialPoints(coords = cirs[, c("x", "y")]) ## TODO: error with some seeds! e.g. 1642
+   cirsRas <- raster(ras)
+   cirsRas[] <- 0
+   cirsRas[cirs[, "indices"]] <- 1
+ 
+   if (interactive()) {
+     clearPlot()
+     Plot(ras)
+     Plot(cirsRas, addTo = "ras", cols = c("transparent", "#00000055"))
+     Plot(agent, addTo = "ras")
+     Plot(cirsSP, addTo = "ras")
+   }
+ 
+   # Example comparing rings and cir
+   a <- raster(extent(0, 30, 0, 30), res = 1)
+   hab <- gaussMap(a, speedup = 1) # if raster is large (>1e6 pixels) use speedup > 1
+   radius <- 4
+   n <- 2
+   coords <- SpatialPoints(coords = cbind(x = stats::runif(n, xmin(hab), xmax(hab)),
+                                          y = stats::runif(n, xmin(hab), xmax(hab))))
+ 
+   # cirs
+   cirs <- cir(hab, coords, maxRadius = rep(radius, length(coords)), simplify = TRUE)
+ 
+   # rings
+   loci <- cellFromXY(hab, coordinates(coords))
+   cirs2 <- rings(hab, loci, maxRadius = radius, minRadius = radius - 1, returnIndices = TRUE)
+ 
+   # Plot both
+   ras1 <- raster(hab)
+   ras1[] <- 0
+   ras1[cirs[, "indices"]] <- cirs[, "id"]
+ 
+   ras2 <- raster(hab)
+   ras2[] <- 0
+   ras2[cirs2$indices] <- cirs2$id
+   if (interactive()) {
+     clearPlot()
+     Plot(ras1, ras2)
+   }
+ 
+   a <- raster(extent(0, 100, 0, 100), res = 1)
+   hab <- gaussMap(a, speedup = 1)
+   cirs <- cir(hab, coords, maxRadius = 44, minRadius = 0)
+   ras1 <- raster(hab)
+   ras1[] <- 0
+   cirsOverlap <- data.table(cirs)[, list(sumIDs = sum(id)), by = indices]
+   ras1[cirsOverlap$indices] <- cirsOverlap$sumIDs
+   if (interactive()) {
+     clearPlot()
+     Plot(ras1)
+   }
+ 
+   # Provide a specific set of angles
+   ras <- raster(extent(0, 330, 0, 330), res = 1)
+   ras[] <- 0
+   n <- 2
+   coords <- cbind(x = stats::runif(n, xmin(ras), xmax(ras)),
+                   y = stats::runif(n, xmin(ras), xmax(ras)))
+   circ <- cir(ras, coords, angles = seq(0, 2 * pi, length.out = 21),
+               maxRadius = 200, minRadius = 0, returnIndices = FALSE,
+               allowOverlap = TRUE, returnAngles = TRUE)
+ }
Loading required package: RandomFields
Loading required package: RandomFieldsUtils
Consider immediate use of one of 
	RFoptions(install.control=list(force=FALSE)) # beginners
	RFoptions(install.control=list(repos=NULL)) # advanced user
	RFoptions(install.control=NULL) # advanced user, alternative


Attaching package: ‘RandomFields’

The following objects are masked from ‘package:RandomFieldsUtils’:

    RFoptions, checkExamples


 *** caught segfault ***
address (nil), cause 'unknown'

Traceback:
 1: RandomFieldsUtils::RFoptions()
 2: internal.rfoptions(xyz_notation = length(y) != 0, expected_number_simu = n,     ..., RELAX = !missing(model) && is(model, "formula"))
 3: RandomFields::RFsimulate(model, y = 1:ncSpeedup, x = 1:nrSpeedup,     grid = TRUE, ...)
 4: raster(RandomFields::RFsimulate(model, y = 1:ncSpeedup, x = 1:nrSpeedup,     grid = TRUE, ...))
 5: gaussMap(a, speedup = 1)
An irrecoverable exception occurred. R is aborting now ...