R、 传单包，将HTML标记的字符向量传递给弹出窗口？

我尝试在上模拟第一个示例，但使用的是html标记向量，而不是一个

关于以下方面的例子：

内容

[1]“
华盛顿州西雅图市第五大道南606号
98138”

地雷：

bird$html[1]

[1]“”

但是，当我将代码传递到传单弹出窗口时，会显示“更多信息”超链接，并链接到未找到的页面，而不是url。我是否必须向HTML标记添加任何特殊字符（例如斜杠或引号）？有什么想法吗

leaflet () %>%
      addTiles(urlTemplate = base_map, attribution = mb_attribution)%>%
      addMarkers(bird$lon, bird$lat, 
                 popup=paste(sep="","<b>", bird$Common.Name,"</b>",
                             "<br/>","<font size=2 color=#045FB4>","Scientific Name: ","</font>" ,bird$Scientific.Name,
                             "<br/>","<font size=2 color=#045FB4>","Number Observed: ","</font>", bird$Count,
                             "<br/>","<font size=2 color=#045FB4>","Location: ","</font>", bird$Location,
                             "<br/>","<font size=2 color=#045FB4>","Region: ","</font>", bird$Area,
                             "<br/>","<font size=2 color=#045FB4>", "Date: ", "</font>", bird$Date,
                             "<br/>", bird$html),
                 clusterOptions = markerClusterOptions()) %>%
      addPopups(bird$lon, bird$lat, bird$html, options = popupOptions(closeButton = FALSE)
      )

传单（）%>%
addTiles（urlTemplate=base\u map，attribute=mb\u attribute）%>%
添加标记（鸟$lon，鸟$lat，
popup=粘贴（sep=“”，”，bird$Common.Name“，
“
”、“科学名称”、“bird$Scientific.Name、，
“
”、“观察到的数量”、“鸟数”，
“
”，“位置：”，“，”，鸟$位置，
“
”，“区域：”，“，”，鸟类$Area，
“
”，“日期：，”，bird$日期，
“
”，bird$html），
clusterOptions=markerClusterOptions（））%>%
添加弹出窗口（bird$lon、bird$lat、bird$html、options=popupOptions（closeButton=FALSE）
)

我认为您使用了错误的引号字符串<代码>“而不是

”

。如果我将引号字符串反转为：

'<a href="https://www.allaboutbirds.org/guide/Gadwall/id">more info</a>'

“”

双引号来转义URL。

也可以查看更详细的弹出窗口。

leaflet () %>%
      addTiles(urlTemplate = base_map, attribution = mb_attribution)%>%
      addMarkers(bird$lon, bird$lat, 
                 popup=paste(sep="","<b>", bird$Common.Name,"</b>",
                             "<br/>","<font size=2 color=#045FB4>","Scientific Name: ","</font>" ,bird$Scientific.Name,
                             "<br/>","<font size=2 color=#045FB4>","Number Observed: ","</font>", bird$Count,
                             "<br/>","<font size=2 color=#045FB4>","Location: ","</font>", bird$Location,
                             "<br/>","<font size=2 color=#045FB4>","Region: ","</font>", bird$Area,
                             "<br/>","<font size=2 color=#045FB4>", "Date: ", "</font>", bird$Date,
                             "<br/>", bird$html),
                 clusterOptions = markerClusterOptions()) %>%
      addPopups(bird$lon, bird$lat, bird$html, options = popupOptions(closeButton = FALSE)
      )

'<a href="https://www.allaboutbirds.org/guide/Gadwall/id">more info</a>'