Question

我正试图在Shiny App Map上放置一个小册子插件的脉冲标记。它在基本的R Studio控制台上运行良好，请参见此处：Add a popup when clicked through to a 'plugin' pulsing marker in R Leaflet

但以下情况并非如此：

library(shiny)
library(leaflet)
library(htmltools)
library(htmlwidgets)

ui <- bootstrapPage(
  tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
  leafletOutput("map", width = "100%", height = "100%")
)

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

  #js and css plugin files are stored locally, but you can access to them here :
# https://raw.githubusercontent.com/mapshakers/leaflet-icon-pulse/master/src/L.Icon.Pulse.js
# https://raw.githubusercontent.com/mapshakers/leaflet-icon-pulse/master/src/L.Icon.Pulse.css
  esriPlugin <- htmlDependency("leaflet-icon-pulse",version = "1.0",
                               src = "C:/HOME/",
                               script = "L.Icon.Pulse.js",stylesheet ="L.Icon.Pulse.css")

  registerPlugin <- function(map, plugin) {
    map$dependencies <- c(map$dependencies, list(plugin))
    map
  }

  output$map <- renderLeaflet({
    leaflet() %>% 
      addProviderTiles("CartoDB.DarkMatter") %>% setView(-122.4105513,37.78250256, zoom = 12) %>%
      registerPlugin(esriPlugin) %>%
      onRender("function(el,x) {
               var pulsingIcon = L.icon.pulse({iconSize:[5,5],color:'red',heartbeat:0.5});
               var pulsingIcon2 = L.icon.pulse({iconSize:[10,10],color:'orange',heartbeat:2});
               var marker = L.marker([37.78,-122.41],{icon: pulsingIcon}).bindPopup('<b>Hello world!</b><br>I am a popup.').openPopup().addTo(this);
               var marker = L.marker([37.75,-122.39],{icon: pulsingIcon2}).addTo(this);}")
  })

}

shinyApp(ui, server)

任何人都明白为什么它不起作用？

Answer 1

这看起来确实是Shiny（或htmlwidgets）中的一个错误，我创建了一个可重现的示例并提交了一个问题 https://github.com/rstudio/shiny/issues/1389

htmlwidget onRender功能在R Shiny中不起作用

1 个答案: