library(rgl)
library(quadmesh)
library(raster)

## Loading required package: sp

r <- raster(volcano)
shade3d(quadmesh(r), col = "grey")
rglwidget()