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

【问题标题】：format issue in Leaflet Shiny marker popupLeaflet Shiny 标记弹出窗口中的格式问题
【发布时间】：2016-07-09 00:15:46
【问题描述】：

我刚刚注意到 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 标签，每行都有正确的唯一值。所有其他弹出值（未格式化）行为正确 - 每个标签都包含数据中的内容。你知道为什么会这样吗？我想格式化弹出窗口，可以没有它，但不能忍受比我聪明的机器；）

【问题讨论】：

标签： r shiny leaflet

【解决方案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)))

【讨论】：

完美，它可以工作，非常感谢，似乎弹出窗口不遵循 Shiny Leaflet 属性，但对直接送入嘴里的标准值反应良好；）