在 R Shiny Leaflet 弹出窗口中包含 HTML

Question

我正在用 Leaflet 制作一个 R Shiny 应用程序，显示城市中的树木。 我想向标记弹出窗口添加一个 svg 图像，这取决于单击标记的树种，但我无法使 includeHTML 工作。

具有两个标记的最小可重现示例

圈子.svg：

<svg width = "20" height = "20"
  xmlns="http://www.w3.org/2000/svg">
  <circle cx="10" cy="10" r="10" style="fill:#000;"/>
</svg>

广场.svg：

<svg width = "20" height = "20"
  xmlns="http://www.w3.org/2000/svg">
  <rect x="0" y="0" width = "20" height = "20" style="fill:#000;"/>
</svg>

当我运行下面的代码时，出现错误：

library(shiny)
library(leaflet)
library(tidyverse)
library(magrittr)

df <- data.frame("type" = c("circle", "square"), 
                 "lon" = c(13.36, 13.37), 
                 "lat" = c(52.56, 52.57)
                 )

ui <- fluidPage(

  leafletOutput("map")

)

server <- function(input, output) {

  output$map <- renderLeaflet({
    leaflet(df) %>%
      addTiles() %>%
      addCircleMarkers(
        popup = ~ paste0(type, ": ", includeHTML(paste0(type, ".svg")))
        )
  })

}
shinyApp(ui = ui, server = server)

Warning: Error in file: invalid 'description' argument
  119: file
  118: readLines
  117: includeHTML
...

但是，如果删除 includeHTML，文件名将正确写入弹出窗口中。

popup = ~ paste0(type, ": ", paste0(type, ".svg"))

如果我索引type ， includeHTML 工作正常，期望它在两个弹出窗口中显示圆圈，这当然不是我想要的：

popup = ~ paste0(type, ": ", includeHTML(paste0(type[1], ".svg")))

includeHTML 似乎采用了整个df$type向量，而不仅仅是向量中与标记相关的一个元素。

这是怎么回事，我该如何解决？ 非常感谢您的帮助。

Answer 1

您可以使用生成弹出窗口
sapply(type, function(x) paste0(x, ": ", includeHTML(paste0(x, ".svg"))))
如下：

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

server <- function(input, output) {
  output$map <- renderLeaflet({
    leaflet(df) %>%
      addTiles() %>%
      addCircleMarkers(
        popup=~sapply(type, function(x) paste0(x, ": ", includeHTML(paste0(x, ".svg"))))
        )
  })
}

shinyApp(ui = ui, server = server)