Google Map support

[dcooley]

support

googleway::google_map() %>%
  mapdeck::add_polygon() %>%
  mapdeck::add_path() %>%
  .. etc

https://github.com/uber/deck.gl/blob/master/examples/get-started/pure-js-google-maps/app.js

---

TODO

• [x] Overlay layer is update-able (in shiny), with transitions and quick updates etc.
• [x] Overlay layers are delete-able
• [x] layers update the bounds of the google map
• [x] shiny bindings for dependencies
• [x] legend - need to placeControl
• [x] legend - remove controls
• [x] add title
• [x] clear title

• [x] Article on website

TESTS

• [x] exclusivity - only layers called have their dependencies loaded
• [x] shiny js dependencies vs mapdeck-only js dependencies

[SymbolixAU]

library(googleway)
library(mapdeck)
library(sf)

set_key("GOOGLE_MAP_KEY")

sf <- spatialwidget::widget_melbourne

googleway::google_map() %>%
    mapdeck::add_dependencies() %>%
    mapdeck::add_polygon(
        data = sf
        , fill_colour = "SA3_NAME"
    )

[SymbolixAU]

shiny example

library(shiny)
library(shinydashboard)
library(googleway)
library(mapdeck)

ui <- dashboardPage(
  dashboardHeader()
  , dashboardSidebar()
  , dashboardBody(
    mapdeck::mapdeck_dependencies()
    , box(
    width = 8
    , googleway::google_mapOutput(
      outputId = "map"
      , height = "600"
    )
  )
)
)

server <- function( input, output ) {
  output$map <- googleway::renderGoogle_map({
    googleway::google_map(
      location = c(0,0)
      , zoom = 2
    ) %>%
    mapdeck::add_dependencies() %>%
      mapdeck::add_scatterplot(
        data = mapdeck::capitals
        , lat = "lat"
        , lon = "lon"
      )
    })
}

shinyApp( ui, server )

[SymbolixAU]

Mixing googleway and mapdeck layers

google_map() %>%
  googleway::add_heatmap(
    data = tram_stops
    , option_radius = 0.0025
  ) %>%
  mapdeck::add_dependencies() %>%
    mapdeck::add_scatterplot(
    data = tram_stops
    , lon = "stop_lon"
    , lat = "stop_lat"
    , radius = 50
    , fill_colour = "stop_lat"
  )

But it's a bit laggy