我刚刚注意到，应用任何格式时，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标签，则每行具有正确的唯一值。所有其他弹出窗口值（未格式化）的行为均正确-每个标签都包含数据中的内容。您是否知道为什么会这样？我想格式化弹出窗口，可以不使用弹出窗口，但是不能在比我聪明的机器上生存；）
最佳答案
我添加了一个附加的粘贴功能，并更改为更多的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)))