javascript - 自动打开谷歌地图和街景

Question

我想知道是否有比我在 R Shiny 更好的人可以告诉我以下是否可能（可能不是，但我想知道是否可能）。

问：我可以在 Shiny 中同时打开谷歌地图和交互式街景吗？

为什么我要这样做：

我有一个来自 googleway 包闪亮集成的编程谷歌地图。它看起来如下（底部的代码）：

在我闪亮的应用程序中，我可以从角落的图标中单击并拖动街景人：

导致街景：

我想通过操作按钮或选项卡单击直接跳入此街景，而不是让用户执行拖放过程，这样我就可以将地图放在一个闪亮的选项卡中，并直接进入另一个选项卡中的交互式街景，或者更好的是，将地图和街景并排放置（链接：https ://developers.google.com/maps/documentation/javascript/examples/streetview-simple ）。

有没有办法做到这一点？

我也在研究 googleway 包，看看是否有另一种方式，但据我所知，我可以进入交互式全景图，但不能直接进入街景。我也在研究使用 Shiny 中的 html 集成直接进入街景服务的可能性。

代码（简化，但经过测试）：

library(googleway)
library(shiny)

gpscoordlat <- 39.647806
gpscoordlon <- -104.940230
markerpointsplace <- data.frame(
  lat=c(gpscoordlat),
  lon=c(gpscoordlon)
)

ui <- fluidPage(google_mapOutput("map"))


server <- function(input, output, session){

 ###Use Your API key here###
  api_key <- "GoogleAPIKeyHere"


  output$map <- renderGoogle_map({
    google_map(location=c(gpscoordlat, gpscoordlon), key= api_key, zoom=15) %>%
      add_markers(data=markerpointsplace , update_map_view= FALSE)

  })
}
shinyApp(ui, server)

Answer 1

警告

此功能目前正在开发中。进度可以直接在 github 上跟踪，但我会努力更新这篇文章。

您可以使用安装开发版本

devtools::install_github("SymbolixAU/googleway")

---

例子

这是两张地图的示例，均由同一个街景“街景小人”控制。

请注意两个 UI 输出、标准map输出和我调用的另一个pano。然后pano在split_view参数中使用它google_map()

library(shiny)
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("map_api_key")

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

shinyApp(ui, server)

笔记

• 如果您的初始位置不直接位于有效的“街景”位置，则街景页面将为空白