在闪亮到自动关闭的信息窗口中为谷歌地图添加EventListener
相关线程 问题 我能够使用close方法以所有标记为目标,并使用for循环对它们进行迭代,以手动关闭它们各自的信息窗口,使用:在闪亮到自动关闭的信息窗口中为谷歌地图添加EventListener,r,google-maps,shiny,googleway,R,Google Maps,Shiny,Googleway,相关线程 问题 我能够使用close方法以所有标记为目标,并使用for循环对它们进行迭代,以手动关闭它们各自的信息窗口,使用: for (var i = 0; i < mapgoogleMarkersdefaultLayerId.length; i++) { mapgoogleMarkersdefaultLayerId[i].infowindow.close(); } 我已经更新了googleway的开发版本,因此您可以指定关闭信息窗口。如果设置为TRUE,当
for (var i = 0; i < mapgoogleMarkersdefaultLayerId.length; i++) {
mapgoogleMarkersdefaultLayerId[i].infowindow.close();
}
我已经更新了googleway的开发版本,因此您可以指定关闭信息窗口。如果设置为TRUE,当您单击地图时,任何打开的标记信息窗口都将关闭
## install the development version:
devtools::install_github("SymbolixAU/googleway")
library(googleway) ## min version: 2.6.1002
tram_stops$info <- "Make me dissappear!"
set_key(apiKey)
google_map(data = tram_stops) %>%
add_markers(
info_window = "info",
close_info_window = T
)
笔记
这是在包的开发分支上,因此我可以在不警告参数名称的情况下进行更改。任何变化都会记录在上,我不知道为什么会有反对票或接近票,但是,这是一个有趣的问题。我在我的github页面上添加了它,因为这将是一个很有用的功能。当我尝试使用您提供的.js代码时,它会在chrome控制台中给出关于未定义地图的错误。您提供的example.js代码是否与您在应用程序中使用的代码完全相同?
library(shiny)
library(googleway)
ui <- fluidPage(
google_mapOutput(outputId = "map", height = "800px")
)
server <- function(input, output) {
tram_stops$info <- "Make me dissappear!"
set_key(api_key)
output$map <- renderGoogle_map({
google_map(data = tram_stops) %>%
add_markers(lat = "stop_lat", lon = "stop_lon", info_window = "info")
})
}
shinyApp(ui, server)
## install the development version:
devtools::install_github("SymbolixAU/googleway")
library(googleway) ## min version: 2.6.1002
tram_stops$info <- "Make me dissappear!"
set_key(apiKey)
google_map(data = tram_stops) %>%
add_markers(
info_window = "info",
close_info_window = T
)