自动打开 Google 地图和街景
Automatically open both Google Map and Streetview
我想知道 R Shiny 是否有比我更好的人可以告诉我以下是否可能(可能不是,但我想知道是否可能)。
问题:我可以在 Shiny 中同时打开 google 地图和交互式街景吗?
我为什么要这样做:
我有一个编程的 google 地图来自 googleway 包 shiny 集成。它看起来如下(代码在底部):
在我闪亮的应用程序中,我可以从角落的图标中单击并拖动街景小人:
街景结果:
我想通过单击操作按钮或选项卡直接跳转到此街景,而不是让用户执行拖放过程,这样我就可以将地图放在一个闪亮的选项卡并直接进入另一个选项卡中的交互式街景,或者最好将地图和街景并排放置,如(link 此处: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)
注意
此功能目前正在开发中。可以跟踪进度 directly on github,但我会在进行过程中努力更新此 post。
您可以使用
安装开发版
devtools::install_github("SymbolixAU/googleway")
例子
这是两个地图的示例,它们都由同一个 street-view 'pegman' 控制。
注意两个 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)
备注
- 如果您的初始位置没有直接落在有效的 'street view' 位置上,街景页面将为空白
我想知道 R Shiny 是否有比我更好的人可以告诉我以下是否可能(可能不是,但我想知道是否可能)。
问题:我可以在 Shiny 中同时打开 google 地图和交互式街景吗?
我为什么要这样做:
我有一个编程的 google 地图来自 googleway 包 shiny 集成。它看起来如下(代码在底部):
在我闪亮的应用程序中,我可以从角落的图标中单击并拖动街景小人:
街景结果:
我想通过单击操作按钮或选项卡直接跳转到此街景,而不是让用户执行拖放过程,这样我就可以将地图放在一个闪亮的选项卡并直接进入另一个选项卡中的交互式街景,或者最好将地图和街景并排放置,如(link 此处: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)
注意
此功能目前正在开发中。可以跟踪进度 directly on github,但我会在进行过程中努力更新此 post。
您可以使用
安装开发版devtools::install_github("SymbolixAU/googleway")
例子
这是两个地图的示例,它们都由同一个 street-view 'pegman' 控制。
注意两个 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)
备注
- 如果您的初始位置没有直接落在有效的 'street view' 位置上,街景页面将为空白