##' @export
##' @seealso start_rasterplot
stop_rasterplot <- function(plot=TRUE) {
- raster.image <- dev.capture(native=TRUE)
- dev.off()
+ raster.image <- grDevices::dev.capture(native=TRUE)
+ grDevices::dev.off()
if (plot) {
grid::grid.raster(raster.image,width=grid::unit(1,"npc"),height=grid::unit(1,"npc"))
}