在闪亮到自动关闭的信息窗口中为谷歌地图添加EventListener

在闪亮到自动关闭的信息窗口中为谷歌地图添加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,当

相关线程

问题

我能够使用close方法以所有标记为目标,并使用for循环对它们进行迭代,以手动关闭它们各自的信息窗口,使用:

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
    )