javascript - 自动打开 Google map 和街景

Question

我想知道 R Shiny 是否有比我更好的人可以告诉我以下内容是否可行(可能不可行，但我想知道是否可行)。

问题:我可以在 Shiny 中同时打开 Google map 和交互式街景吗？

为什么我要这样做:

我有一个来自 googleway 包 Shiny 集成的编程谷歌地图。如下所示(代码在底部):

在我 Shiny 的应用程序中，我可以从 Angular 落的图标中单击并拖动街景人物:

街景结果:

我想通过操作按钮或选项卡单击直接跳转到此街景 View ，而不是让用户进行拖放过程，这样我就可以将 map 放在一个 Shiny 的选项卡中并直接进入另一个选项卡中的交互式街景，或者更好的是并排显示 map 和街景(链接在这里: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

注意

此功能目前正在开发中。进度可追踪directly on github ，但我会尽力更新这篇文章。

您可以使用安装开发版本

devtools::install_github("SymbolixAU/googleway")

---

示例

下面是两张 map 的示例，它们都由同一个街景“街景小人”控制。

请注意两个 UI 输出，即标准 map 输出和另一个我称为 pano 的输出。然后，此 pano 将在 google_map()

的 split_view 参数中使用

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)

注释

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