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

> ### Name: dkcrop
> ### Title: crop a mesh
> ### Aliases: dkcrop
> 
> ### ** Examples
> 
> #Crop above a certain threshold:
> mythreshold <- quantile(elev(dkmodel$basin), 0.5)
> mypolynetwork <- poly.network(dkmodel$basin, elev(dkmodel$basin),
+ lwr.limit = mythreshold)
> mynewmesh <- dkcrop(dkmodel$basin, mypolynetwork)
> dkmap(mynewmesh, elev(mynewmesh))
> 
> #Crop the sharpest dental elements:
> sharpmesh <- dkcrop(dkmodel$basin, poly.network(dkmodel$basin,
+ Rvcg::vcgCurve(dkmodel$basin)$meanitmax,
+ lwr.limit = quantile(Rvcg::vcgCurve(dkmodel$basin)$meanitmax, 0.8),
+ min.size = 50))
> dkmap(sharpmesh, arc(sharpmesh), col = "arc", col.levels = 20,
+ min.range = -20, max.range = 20)
> #Map of the sharpest elements' elevation, slope and orientation;
> dkmap(sharpmesh, elev(sharpmesh), col = "elev")

 *** caught segfault ***
address 0x3b4550be85a8, cause 'memory not mapped'

Traceback:
 1: plot.xy(xy, type, ...)
 2: plot.default(x = plotx, y = ploty, pch = 95, bty = "n", xaxs = "r",     xaxt = "n", col = c("transparent", rep(Colpalette, each = 100)),     xlab = "", ylab = legend.lab, main = main, sub = sub, col.main = col.main,     col.axis = col.axis, col.lab = col.lab, col.sub = col.sub,     cex = cex, cex.main = cex.main, cex.axis = cex.axis, cex.sub = cex.sub,     cex.lab = cex.lab, family = family, font.main = font.main,     font.axis = font.axis)
 3: graphics::plot(x = plotx, y = ploty, pch = 95, bty = "n", xaxs = "r",     xaxt = "n", col = c("transparent", rep(Colpalette, each = 100)),     xlab = "", ylab = legend.lab, main = main, sub = sub, col.main = col.main,     col.axis = col.axis, col.lab = col.lab, col.sub = col.sub,     cex = cex, cex.main = cex.main, cex.axis = cex.axis, cex.sub = cex.sub,     cex.lab = cex.lab, family = family, font.main = font.main,     font.axis = font.axis)
 4: bg.make()
 5: doTryCatch(return(expr), name, parentenv, handler)
 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 7: tryCatchList(expr, classes, parentenv, handlers)
 8: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
 9: try(expression)
10: rgl::bgplot3d(bg.make())
11: dkmap(sharpmesh, elev(sharpmesh), col = "elev")
An irrecoverable exception occurred. R is aborting now ...