R Leaflet: передача popupOptions при добавлении полигонов.

Внутри addPolygons() есть параметр popup, такой же, как в функции addPopups(). Разница (я думаю) в том, что когда всплывающее окно создается внутри addPolygons(), можно щелкнуть в любом месте многоугольника, чтобы вызвать всплывающее окно, но если используется addPopups(), должна быть определена одна точка lng и lat.

Я хочу изменить один из параметров по умолчанию (maxWidth) в popupOptions(), что легко сделать при использовании addPopups(), потому что он содержит параметр options = popupOptions(), но я не знаю, как это сделать при использовании addPolygons(); внутри этой функции параметр options равен options = pathOptions().

Ниже приведен воспроизводимый пример из листовки документации с добавленным всплывающим окном, в котором я бы хотел увеличить maxWidth.

library(rgdal)

# From https://www.census.gov/geo/maps-data/data/cbf/cbf_state.html
states <- readOGR("shp/cb_2013_us_state_20m.shp",
  layer = "cb_2013_us_state_20m", verbose = FALSE)

neStates <- subset(states, states$STUSPS %in% c(
  "CT","ME","MA","NH","RI","VT","NY","NJ","PA"
))

leaflet(neStates) %>%
  addPolygons(
    stroke = FALSE, fillOpacity = 0.5, smoothFactor = 0.5,
    color = ~colorQuantile("YlOrRd", states$AWATER)(AWATER),
    popup="<b>Hello World</b>"
  )

введите описание изображения здесь


r leaflet
person Adam Birenbaum    schedule 14.06.2016    source источник
comment
В настоящее время это невозможно, хотя уже реализовано в виде запроса на вытягивание. См. Здесь github.com/rstudio/leaflet/issues/258.   -  person TimSalabim    schedule 14.06.2016

Ответы (1)


arrow_upward
2
arrow_downward

Вы можете сделать это, просто добавив popupOptions() после вашего всплывающего окна в блоке addPloygons() следующим образом:

leaflet(neStates) %>%
    addPolygons(
        stroke = FALSE, fillOpacity = 0.5, smoothFactor = 0.5,
        color = ~colorQuantile("YlOrRd", states$AWATER)(AWATER),
        popup="<b>Hello World</b>"
        popupOptions = popupOptions(maxWidth ="100%", closeOnClick = TRUE)

)

Вот список из виньетки в формате PDF на буклете R всего, что вы можете добавить в список popupOptions():

popupOptions(maxWidth = 300, minWidth = 50, maxHeight = NULL,
            autoPan = TRUE, keepInView = FALSE, closeButton = TRUE,
             zoomAnimation = TRUE, closeOnClick = NULL, className = "", ...)
person sconfluentus    schedule 24.07.2017