title: purrr::walk not working as expected
body: <p><strong>UPDATE</strong></p>
  
  <ol>
  <li><p>When I comment out the popup code the duplication goes away...</p></li>
  <li><p>When I add in the informaiton I want in the popup inside of the walk() function I get what I want without duplication, so I suppose it was taking the assigned <code>Popup</code> and running it through the loop for ever instnace on a point for every loop for however many times the record existed or something.</p></li>
  </ol>
  
  <p>Below I have the following code which I adapted from the leaflet site of R-Studio, the only thing that is different is my data.</p>
  
  <p>For example, I have a service line of Bariatrics, which should only map four (4) markers on the map, yet instead I get 657 markers on the map.</p>
  
  <p>Is there anything screaming out as way off?</p>
  
  <pre><code># Popup Code
  Popup &lt;- paste(
      "Hospitalist/Private:"
      , joined_data$Hospitalist_Private
      , "Address: "
      , joined_data$FullAddress
      , "Service Line: "
      , joined_data$LIHN_Line
      , "Readmit: "
      , joined_data$Readmit_Count
      , "SOI: "
      , joined_data$SOI
      , "Encounter: "
      , joined_data$PtNo_Num
      , "Payer Group: "
      , joined_data$Payor_Category
    )
  
  # Makes 19 data.frames
  LIHNCluster.df &lt;- split(joined_data, joined_data$LIHN_Line) 
  
  # Create the initial map object
  ClusterMapLIHN &lt;- leaflet() %&gt;%
    setView(lng = sv_lng, lat = sv_lat, zoom = sv_zoom) %&gt;%
    addTiles() %&gt;%
    addTiles(group = "OSM (default)") %&gt;%
    addProviderTiles("CartoDB.Positron") %&gt;%
    addControl(
      paste("LIHN Service Line Cluster Map for:", MaxRptMonth, MaxRptYr)
      , position = "topright"
      )
  
  # Use purrr::walk to loop through the LIHNCluster.df and add
  # markers to the map
  names(LIHNCluster.df) %&gt;%
    purrr::walk( function(df) {
      ClusterMapLIHN &lt;&lt;- ClusterMapLIHN %&gt;%
        addMarkers(
          data = LIHNCluster.df[[df]]
          , lng = ~LON
          , lat = ~LAT
          , label = ~as.character(LIHN_Line)
          #, popup = ~as.character(Popup)
          # When I do the following I get the info I want without duplication
          , popup = ~as.character(
            paste(
              sep = "&lt;br/&gt;"
              , "&lt;strong&gt;Encounter: &lt;/strong&gt;"
              , PtNo_Num
              , "&lt;strong&gt;Service Line: &lt;/strong&gt;"
              , LIHN_Line
              , "&lt;strong&gt;Hospitalist/Private: &lt;/strong&gt;"
              , Hospitalist_Private
              , "&lt;strong&gt;Payor Category &lt;/strong&gt;"
              , Payor_Category
              , "&lt;strong&gt;SOI: &lt;/strong&gt;"
              , SOI
              , "&lt;strong&gt;Readmit: &lt;/strong&gt;"
              , Readmit_Count
              , "&lt;strong&gt;Address: &lt;/strong&gt;"
              , FullAddress
              )
            )
          , group = df
          , clusterOptions = markerClusterOptions(
            removeOutsideVisibleBounds = F
            , labelOptions = labelOptions(
              noHide = F
              , direction = 'auto'
            )
          )
        )
    }
  )
  
  # Add baseGroups and overlayGroups to map
  ClusterMapLIHN &lt;- ClusterMapLIHN %&gt;%
    addLayersControl(
      baseGroups = c("OSM (default)", "CartoDB.Positron")
      , overlayGroups = names(LIHNCluster.df)
      , options = layersControlOptions(
        collapsed = TRUE
        )
    )
  
  # Add and awesome marker
  ClusterMapLIHN &lt;- ClusterMapLIHN %&gt;%
    addAwesomeMarkers(
      lng = sv_lng
      , lat = sv_lat
      , icon = hospMarker
      , label = "BMHMC"
      , popup = HospPopup      
    )
  
  ClusterMapLIHN
  </code></pre>