如何在单击另一个弹出窗口时保留传单弹出窗口?

时间:2016-02-09 16:32:26

标签: r leaflet htmlwidgets

点击另一张弹出窗口时弹出窗口如何保持打开状态?

点击标记时,下面的MWE显示弹出窗口。好。但是当我点击第二个标记时,我不希望第一个弹出窗口消失。它应该只在单击关闭[x]时消失。在点击标记之前,不应该看到弹出窗口。

library(leaflet)
the.points <- data.frame(latitude=c(63.136353,63.132935,63.128051),
  longitude=c(21.928023,21.962601,21.893444),
  text=c("One point", "A second point", "The third point"))
p <- leaflet(the.points)
p <- addTiles(p)
p <- addMarkers(p, lng=~longitude, lat=~latitude, popup=~text)
p

我也尝试使用addPopups,但默认情况下它们都是可见的。如果可以改变它会很好(不确定如何)。

1 个答案:

答案 0 :(得分:0)

在同一个东西上挣扎,最终这对我有用:

leaflet() %>% addTiles() %>%
  addMarkers(
    lng = -118.456554, lat = 34.085,
    popup = "One popup",
    popupOptions = popupOptions(autoClose = FALSE, closeOnClick = FALSE)) %>%
  addMarkers(
    lng = -118.456554, lat = 34.065,
    popup = "Another popup",
    popupOptions = popupOptions(autoClose = FALSE, closeOnClick = FALSE))
  )