add geo assets so maps render without internet connection

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via Plotly's JavaScript Graphing Library
-Version: 2.0.15
+Version: 2.0.16
 Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "[email protected]"),
     person("Chris", "Parmer", role = c("aut", "cph"),

NEWS

@@ -1,3 +1,12 @@
+
+Geo assests are now bundled with the package meaning that maps will now work entirely locally (without an internet connection)
+
+Default scale value in plotly_IMAGE() should be 1.
+
+2.0.16 -- 18 Dec 2015
+
+Require ggplot2 2.0.0 or higher. For details, see #269.
+
 2.0.15 -- 13 Dec 2015
 
 Fix #346
@@ -48,7 +57,7 @@ Fix #313.
 
 2.0.3 -- 18 Nov 2015
 
-Fixed bug causing knitr options to be ignored. Also added VignetteBuilder to DESCRIPTION to vignette is available.
+Fixed bug causing knitr options to be ignored. Also added VignetteBuilder to DESCRIPTION so vignette is available.
 
 2.0.2 -- 17 Nov 2015
 

R/plotly_IMAGE.R

@@ -21,7 +21,7 @@
 #' 
 
 plotly_IMAGE <- function(x, width = 1000, height = 500, format = "png", 
-                         scale = 4, out_file, ...) {
+                         scale = 1, out_file, ...) {
   x <- plotly_build(x)
 
   bod <- list(

inst/htmlwidgets/plotly.yaml

@@ -3,3 +3,7 @@ dependencies:
     version: 1.2.1
     src: "htmlwidgets/lib/plotlyjs"
     script: plotly-latest.min.js
+  - name: plotlyjs-geo
+    version: 1.2.1
+    src: "htmlwidgets/lib/plotlyjs"
+    script: plotly-geo-assets.js

inst/update-plotlyjs.R

@@ -0,0 +1,13 @@
+library(httr)
+x <- GET('https://api.github.com/repos/plotly/plotly.js/releases/latest')
+zip <- content(x)$zipball_url
+tmp <- tempfile(fileext = ".zip")
+download.file(zip, tmp)
+unzip(tmp)
+p <- Sys.glob("plotly-plotly.js*/dist/plotly.min.js")
+file.copy(p, "inst/htmlwidgets/lib/plotlyjs/plotly-latest.min.js", overwrite = T)
+g <- Sys.glob("plotly-plotly.js*/dist/plotly-geo-assets.js")
+file.copy(g, "inst/htmlwidgets/lib/plotlyjs/plotly-geo-assets.js", overwrite = T)
+unlink("plotly-plotly.js*", recursive = T)
+# update plotly.yml with version
+basename(zip)