remove examples that no longer run

Author: LiamConnors

DESCRIPTION

@@ -1,7 +1,6 @@
-Package: Plotly's R graphing library. 
+Package: Plotly's R graphing library.
 Imports:
     geomorph,
-    maptools,
     rjson,
     dplyr,
     quantmod,

r/2016-06-17-3d-tri-surf.Rmd

@@ -86,44 +86,3 @@ fig <- plot_ly(
 
 fig
 ```
-
-### Maps
-
-```{r}
-#devtools::install_github("hypertidy/anglr")
-library(anglr)
-library(maptools)
-library(plotly)
-data(wrld_simpl)
-
-map1 <- subset(wrld_simpl,
-               NAME %in% c("Indonesia", "Papua New Guinea", "New Zealand", "Australia"))
-## DEL model (like TRI in silicate)
-delmesh <-  anglr::globe(anglr::DEL(map1, max_area = 0.5))
-mesh <- as.mesh3d(delmesh)
-
-
-# plot point cloud
-x <- mesh$vb[1,]
-y <- mesh$vb[2, ]
-z <- mesh$vb[3,]
-m <- matrix(c(x,y,z), ncol=3, dimnames=list(NULL,c("x","y","z")))
-
-# colours in z don't make sense here, need to map object aesthetics above
-zmean <- apply(t(mesh$it),MARGIN=1,function(row){mean(m[row,3])})
-
-library(scales)
-facecolor = colour_ramp(
-  brewer_pal(palette="RdBu")(9)
-)(rescale(x=zmean))
-
-fig <- plot_ly(
-  x = x, y = y, z = z,
-  i = mesh$it[1,]-1, j = mesh$it[2,]-1, k = mesh$it[3,]-1,
-  facecolor = facecolor,
-  type = "mesh3d"
-)
-
-fig
-```
-Inspired by <a href="http://rpubs.com/cyclemumner/rangl-plotly"> Michael Sumner</a>