將htmlwidget添加到傳單對象的彈出窗口中

Question

我正在使用R組合傳單對象和dygraph。

特別是我想要一個dygraph（和理想的任何htmlwidget）作爲點在地圖上彈出顯示。

下面是我大致試圖製作的代碼。

理想情況下，當用戶點擊標記時，dygraph應該出現在彈出窗口中。

# example dygraph 
    library(dygraphs) 
    lungDeaths <- cbind(mdeaths, fdeaths) 
    dygraph(lungDeaths) 
    dd <- .Last.value 

    # example leaflet map 
    library(leaflet) 
    leaflet() %>% 
    addTiles() %>% 
    addMarkers(lng=174.768, lat=-36.852, 
       popup="The birthplace of R") 
    ll <- .Last.value 

    # I would like to be able to incorporate the dygraph as the popup, 
    # however the below doesn't work. 
    ll %>% addMarkers(lng=174.769, lat=-36.853, 
        popup=dd) 


    # the end goal is to have this combined in a shiny output 
    # below is a rough skeleton to add what I would expect to code 
    # in order to be able to add the dygraph into the popup 
    library(shiny) 
    library(leaflet) 
    library(dygraphs) 

    ui <- fluidPage(
    leafletOutput("mymap") 
) 

    server <- function(input, output, session) { 

    output$mymap <- renderLeaflet({ 
     leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng=174.768, lat=-36.852, 
        popup=dygraph(lungDeaths)) 

    }) 
    } 

    shinyApp(ui, server) 

Answer 1

這可以通過使用mapview::popupGraph來完成，它允許在彈出窗口中包含靜態以及基於htmlwidgets的圖形。在你的例子來改變相關線上：

ll %>% addMarkers(lng=174.769, lat=-36.853, 
        popup=mapview::popupGraph(dd, type = "html")) 

注意，論文HTML彈出窗口是通過iframe嵌入，所以可能會有一些意想不到的行爲，尤其是當沒有足夠的空間。使用github版本傳單您可以更改彈出窗口的大小以滿足您的需求。 CRAN版本只允許寬度爲300px（如果我沒有弄錯的話）。