new-rangl.R

library(marmap)

## 
## Attaching package: 'marmap'

## The following object is masked from 'package:grDevices':
## 
##     as.raster

library(rangl)

## Warning in rgl.init(initValue, onlyNULL): RGL: unable to open X11 display

## Warning: 'rgl_init' failed, running with rgl.useNULL = TRUE

data("hawaii", package = "marmap")
r <- as.raster(hawaii)
library(raster)

## Loading required package: sp

p <- rangl(aggregate(r, fact = 2))
xy <- rgdal::project(as.matrix(p$v[, 1:2]), "+proj=laea +lon_0=180 +lat_0=-0")
p$v$y_ <- xy[,2]
p$v$x_ <- xy[,1]
plot(p)