title: R, leaflet package, Passing a character vector of HTML tags to popups?
body: <p>I'm trying to emulate the first example on <a href="https://rstudio.github.io/leaflet/popups.html" rel="nofollow">https://rstudio.github.io/leaflet/popups.html</a> but with a vector of html tags rather than one.</p>
  
  <p>Example on <a href="https://rstudio.github.io/leaflet/popups.html" rel="nofollow">https://rstudio.github.io/leaflet/popups.html</a>:</p>
  
  <blockquote>
    <p>content</p>
  </blockquote>
  
  <pre><code>[1] "&lt;b&gt;&lt;a href='http://www.samurainoodle.com'&gt;Samurai Noodle&lt;/a&gt;&lt;/b&gt;&lt;br/&gt;606 5th Ave. S&lt;br/&gt;Seattle, WA 98138"
  </code></pre>
  
  <p>Mine:</p>
  
  <blockquote>
    <p>bird$html[1]</p>
  </blockquote>
  
  <pre><code>[1] "&lt;a href=‘https://www.allaboutbirds.org/guide/Gadwall/id’&gt;more info&lt;/a&gt;"
  </code></pre>
  
  <p>However, when I pass the code to leaflet popup, the more info hyperlink displays and links to a not found page rather than the url. Do i have to add any special characters to the HTML tag (e.g. slashes or quotations)? Any thoughts?</p>
  
  <pre><code>leaflet () %&gt;%
        addTiles(urlTemplate = base_map, attribution = mb_attribution)%&gt;%
        addMarkers(bird$lon, bird$lat, 
                   popup=paste(sep="","&lt;b&gt;", bird$Common.Name,"&lt;/b&gt;",
                               "&lt;br/&gt;","&lt;font size=2 color=#045FB4&gt;","Scientific Name: ","&lt;/font&gt;" ,bird$Scientific.Name,
                               "&lt;br/&gt;","&lt;font size=2 color=#045FB4&gt;","Number Observed: ","&lt;/font&gt;", bird$Count,
                               "&lt;br/&gt;","&lt;font size=2 color=#045FB4&gt;","Location: ","&lt;/font&gt;", bird$Location,
                               "&lt;br/&gt;","&lt;font size=2 color=#045FB4&gt;","Region: ","&lt;/font&gt;", bird$Area,
                               "&lt;br/&gt;","&lt;font size=2 color=#045FB4&gt;", "Date: ", "&lt;/font&gt;", bird$Date,
                               "&lt;br/&gt;", bird$html),
                   clusterOptions = markerClusterOptions()) %&gt;%
        addPopups(bird$lon, bird$lat, bird$html, options = popupOptions(closeButton = FALSE)
        )
  </code></pre>