Leaflet Shiny标记弹出窗口的格式问题

Question

我刚刚注意到，当应用任何格式时，Leaflet Shiny中的弹出窗口不会更新。 当我在使用以下内容时：

addMarkers(points1$Lon,points1$Lat 
,popup= paste(sep = "<br/>",
strong(points1$Suspension_ID), 
 paste(points1$Street,points1$Zone), points1$Reason, 
paste(points1$Bay_Type, "-" , points1$Spaces, "Space(s)"),   
em(points1$Location),
paste(points1$Start_Date, " TO ", points1$End_Date), points1$Time_Details)

斜体或粗体标记的行在地图中具有相同的值，而如果我跳过em / strong标签，则每行具有正确的唯一值。所有其他弹出窗口值（未格式化）都 behaving correctly - 每个标签包含数据中的内容。您知道为什么会这样吗？我想格式化弹出窗口，可以不用它，但不能让机器比我更聪明;)

- Slav

Answer 1

我添加了一个额外的粘贴功能并更改为更多的HTML代码。这应该可以工作。我在我的机器上运行它，用我的数据测试过，但是我没有你的数据集，所以你可能需要调整()一下。如果你发布你的数据集，我们可以一起努力使它顺畅运行。

addMarkers(points1$Lon,points1$Lat ,popup= paste(paste(
"<strong>", points1$Suspension_ID, "</strong>"), 
paste(points1$Street,points1$Zone, points1$Reason), 
paste(points1$Bay_Type, "-" , points1$Spaces, "Space(s)"),   
paste("<em>", points1$Location, "</em>"),
paste(points1$Start_Date, " TO ", points1$End_Date, points1$Time_Details)))

- jpf5046

---

完美，它可以工作，非常感谢。似乎弹出窗口不遵循Shiny Leaflet属性，但对直接输入标准值做出了良好的反应。;) - Slav