split view

[SymbolixAU]

• update this question when complete: https://stackoverflow.com/q/48898469/5977215

---

On the split branch I the beginnings of a demo.

devtools::install_github("SymbolixAU/googleway", ref = "split")

library(shinydashboard)
library(googleway)

ui <- dashboardPage(

  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(width = 6,
      google_mapOutput(outputId = "map")
    ),
    box(width = 6,
        google_mapOutput(outputId = "pano")
    )
  )
)

server <- function(input, output) {
  set_key(read.dcf("~/Documents/.googleAPI", fields = "GOOGLE_MAP_KEY"))

  output$map <- renderGoogle_map({
    google_map(location = c(-37.817386, 144.967463), zoom = 10, split_view = "pano")
  })
}

shinyApp(ui, server)

[SymbolixAU]

brought into master d4f8cb1

[SymbolixAU]

I think this code has introduced another bug. In some tests I'm getting a

Uncaught TypeError : Cannot read property 'style' of null

in the JS console, which I think has to do with the streetview. Will investigate.

[SymbolixAU]

closing because I haven't had this error in a while. If it reappears I'll reopen.