2016-06-14 3 views
1

addPolygons()の中には、addPopups()の機能のように、popupパラメータがあります。ポップアップがaddPolygons()の範囲内で作成された場合、ポリゴン内のどこかをクリックするとポップアップがトリガーされますが、addPopups()が使用されている場合は、lnglatの1つのポイントを定義する必要があります。リーフレット:ポリゴンを追加するときにpopupOptionsを渡します。

それはパラメータoptions = popupOptions()が含まれていますが、私はaddPolygons()を使用するときにどのように行うのか分からないので、私はaddPopups()を使用するときに簡単に行うことができpopupOptions()のデフォルトのオプションのいずれか(maxWidth)を変更したいです。その関数内で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>" 
) 

enter image description here

+1

現在、プルリクエストとして実装されていますが、現在は使用できません。こちらをご覧くださいhttps://github.com/rstudio/leaflet/issues/258 – TimSalabim

答えて

0

あなたは、単にそのようなaddPloygons()ブロックにあなたのポップアップ後popupOptions()を追加することによってこれを行うことができます。

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のビネットからのリストですあなたがpopupOptions()のリストに入れることができるすべてのものの小冊子Rに:

popupOptions(maxWidth = 300, minWidth = 50, maxHeight = NULL, 
      autoPan = TRUE, keepInView = FALSE, closeButton = TRUE, 
      zoomAnimation = TRUE, closeOnClick = NULL, className = "", ...) 
関連する問題